Как в vba сделать 2 независимых цикла
Формулировка задачи:
Вопрос :
Необходимо чтобы цикл i выполнялся по условию , а j независимо по шагу 1 (1, 2,3 ) и т.д.
Как осуществить?
Не получается так:
Что именно не получается:
Имеется таблица в ней в 1 столбце по строкам слова, те из них которые имеют синий цвет должны переносится в соседнюю таблицу с определенной начальной позиции , но по порядку (если переносить напрямую например Cells(i, 16).Value = Cells(i, 1).Value , то все строки с синим цветом будут скопированы, но между ними будут такие же пробелы (там где в исходном тексте строки не имеют синего цвета)...
Как осуществить?
Решение задачи: «Как в vba сделать 2 независимых цикла»
textual
Листинг программы
Sub primer_2() Dim cell As Range Dim i as integer, k as integer, lastRow, firstRow As Long lLastRow = Cells(Rows.Count, 1).End(xlUp).Row '<br> k=9 For i = 1 To lLastRow If Cells(i, 1).Value Like "Space Summary*" And Cells(i, 1).Font.Color = vbBlue Then k=k+1 Cells(k, 16).Value = Cells(i, 1).Value End If Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д