Добрый вечер!
Помогите в решении задачи, как макросом вытащить из столбцов A,C,E, и т.д значения и вставить в отдельный столбец?
Получилось только вытащить циклом из столбца A. а как зацепить остальные столбцы.
Спасибо за ответ.
Помогите в решении задачи, как макросом вытащить из столбцов A,C,E, и т.д значения и вставить в отдельный столбец?
Получилось только вытащить циклом из столбца A. а как зацепить остальные столбцы.
| Код |
|---|
Sub Цикл()
Application.ScreenUpdating = False
Dim r As Long, h As Long, u As Long
u = 1
For r = 1 To 900
For h = 1 To 1
If Cells(r, h) <> "" Then
Sheets("Лист2").Range("A" & u).Value = Cells(r, h)
Sheets("Лист2").Range("B" & u).Value = Cells(r, h + 1)
u = u + 1
End If
Next
Next
Sheets("Лист2").Select
Application.ScreenUpdating = True
End Sub |
Спасибо за ответ.
Изменено: - 12.12.2021 23:21:35
