Копирование строк по условию из существующего набора данных в отдельную таблицу с помощью кода VBA Excel. Определение числа строк в исходной таблице.
Условие задачи
Есть исходная таблица (набор данных) со списком файлов, расположенных в двух папках. Необходимо строки таблицы, содержащие слово «Изображения», скопировать в новую таблицу, расположенную ниже исходного набора данных, через одну пустую строку. В результате должно получиться, как на изображении ниже:
Решение задачи
Код VBA Excel для копирования строк исходного набора данных по условию в отдельную таблицу:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Sub KopirovaniyeStrok() Dim s As String, n As Long, m As Long, i As Long 'Задаем условие поиска s = "Изображения" 'Определяем номер последней строки исходной таблицы n = Range("A2").CurrentRegion.Rows.Count 'Задаем номер первой строки новой таблицы m = n + 2 For i = 2 To n 'Проверяем условие If Cells(i, 1) = s Then 'Копируем строку, удовлетворяющую условию, в новую таблицу Cells(i, 1).Resize(1, 3).Copy Cells(m, 1) m = m + 1 End If Next End Sub |
При желании, можно добавить в эту процедуру еще одну переменную и автоматическое определение количества столбцов:
|
1 2 |
Dim c As Long c = Range("A2").CurrentRegion.Columns.Count |
Тогда выражение копирования примет следующий вид:
|
1 |
Cells(i, 1).Resize(1, c).Copy Cells(m, 1) |
Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.