Как в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы