Я получаю данные с листа и хочу, чтобы они отображались на другом листе, чтобы проверить, нужно ли что-то делать в ближайшем будущем.
Я сканирую все данные, которые имеют случай «ПЛАНИРОВАТЬ», и регистрирую те, которые соответствуют спецификации, на моем листе.
Проблема в том, что каждая точка данных перезаписывает предыдущую - отображается только последняя точка данных.
Dim i As Integer
Dim lastRowS2 As Long
Dim lastRowS3 As Long
lastRowS2 = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row
i = 5
For j = i To lastRowS2
Select Case Sheets(2).Range("O" & j)
Case Is = "-"
Case Is = "TO PLAN"
lastRowS3 = Sheets(3).Cells(Rows.Count, "A").End(xlUp).Row
Sheets(3).Range("A" & lastRowS3) = Sheets(2).Range("C" & j)
End Select
'MsgBox j
Next j
Есть ли способ получить все данные, которые соответствуют условию правильно отображается?
Спасибо за помощь и извините за мой Engli sh, я немного ржавый.