Удаление пустых строк в ListBox

@pauletto · Регистрация: 22.02.2013

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
Private Sub ListBox1_Enter()
For k = 2 To 50
If Cells(i + 1, 1).Value <> " " Then
ListBox1.AddItem Cells(i + k, 1).Value
End If
Next k
End Sub

вот код на массив считывающий из ячеек данные, вот как сделать чтобы не выло пустых строк если ячейка пустая

dev.Free · 17.03.2013, 15:18

Visual Basic
1
2
3
4
5
6
7
8
9
For k = 1 To 50
    If Cells(k + 1 - 1, 1).Value = "" Then
        Cells(k + 1 - 1, 1).Value = a
    Else
        If Cells(i + 1, 1).Value <> " " Then
            ListBox1.AddItem Cells(i + k, 1).Value
        End If
    End If
Next k

К примеру так! Если наткнулись на пустую строку, тогда в переменную "a" передали ее значение, то есть пустое и пошли дальше. Если строка не пустая, тогда вносим ее в ListBox.

Удачи!

@pauletto · 17.03.2013, 15:20 **[ТС]**

inv.DS, спасибо вот все с конца строки он удалил ,а вот если делаю пустую ячейку посередине то он обрубает все что поле неё идёт

dev.Free · 17.03.2013, 15:23

Не может быть! Пример смотрите!

@pauletto · 17.03.2013, 15:29 **[ТС]**

inv.DS, ааа,всё нашёл где ошибка была,спасибо!

@Pavel55 · 17.03.2013, 22:10

Обращение к ячейкам листа Excel - очень медленный процесс и лучше к ним в цикле не обращаться. Выход: брать в массив данные с листа и уже его просматривать в цикле

Пример

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim iLastRow As Long, k As Long
Dim myArray()
 
    With Worksheets("Лист1")
        iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'последняя строка в столбец А
        myArray() = .Range("A2:A" & iLastRow).Value
    End With
    
    For k = LBound(myArray) To UBound(myArray)
        If myArray(k, 1) <> "" Then ListBox1.AddItem myArray(k, 1)
    Next k
 
End Sub

dev.Free · 18.03.2013, 11:02

Pavel55, Все зависит от того насколько силен ваш компьютер. Мы на работе (правда на сервере) обрабатываем такие потоки данных с листов Excel. У новичков ужас стоит в глазах, когда они видят такие данные. Примерно по 800 листов каждый весит по 15 - 40 мегабайт (которые поступают каждые 4 часа), все это обрабатывается довольно быстро, хотя тот разработчик, что писал макрос (кстати там циклы используются на примере, что я выложил) использует циклы. И как бы желания переписывать его код не было у наших сотрудников.

@Hugo121 · 18.03.2013, 12:13

inv.DS, не важно, насколько силён компьютер - работа с ячейками на порядок медленнее работы с массивом (замерял - было медленнее в 43 раза, но зависит от задачи).
Так что на "примерно по 800 листов каждый весит по 15 - 40 мегабайт" можно здорово сэкономить. Правда кофе попить может не получиться...
А вот это зачем:

Visual Basic
1
Cells(k + 1 - 1, 1).Value = a

Зачем +1-1, зачем в пустую ячейку заносить Empty?

dev.Free · 18.03.2013, 12:23

Сообщение от Hugo121

Зачем +1-1, зачем в пустую ячейку заносить Empty?

Не понял извини сути вопроса. Покажи как будет правильно.

@Hugo121 · 18.03.2013, 12:38

Выкинул лишнее.

Visual Basic
1
2
3
4
5
Private Sub CommandButton1_Click()
For k = 1 To 50
    If Cells(k, 1).Value <> "" Then ListBox1.AddItem Cells(k, 1).Value
Next k
End Sub

Для 50 строк нет смысла делать массив, не тысячи...

Вернее лучше так:

Visual Basic
1
2
3
4
5
Private Sub CommandButton1_Click()
For k = 1 To 50
    If Len(Trim(Cells(k, 1).Value)) Then ListBox1.AddItem Cells(k, 1).Value
Next k
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@pauletto 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 51
	17.03.2013, 15:20 [ТС]
	inv.DS, спасибо вот все с конца строки он удалил ,а вот если делаю пустую ячейку посередине то он обрубает все что поле неё идёт 0

@pauletto 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 51
	17.03.2013, 15:29 [ТС]
	inv.DS, ааа,всё нашёл где ошибка была,спасибо! 0

dev.Free Заблокирован
	18.03.2013, 11:02
	Pavel55, Все зависит от того насколько силен ваш компьютер. Мы на работе (правда на сервере) обрабатываем такие потоки данных с листов Excel. У новичков ужас стоит в глазах, когда они видят такие данные. Примерно по 800 листов каждый весит по 15 - 40 мегабайт (которые поступают каждые 4 часа), все это обрабатывается довольно быстро, хотя тот разработчик, что писал макрос (кстати там циклы используются на примере, что я выложил) использует циклы. И как бы желания переписывать его код не было у наших сотрудников. 0