Как перейти к каждому столбцу в одной строке в Excel VBA

Question

Я пытаюсь обойти каждый столбец в той же строке, я новичок в VBA, и любая помощь будет признательна ..

Вот мой код:

Sub dural()
   Dim i As Long
   Dim j As Long

    i = 2

    Cells(1, i).Select

    For i = 2 To Columns.Count

    Cells(1, i + j).Select

    'Selection.Copy

    j = i + 1

    Next i

End Sub

Answer 1

Луан Йи,
Ваш вопрос гласит: «пытаться пройти каждый столбец в одной строке»; код ниже показывает, как l oop через каждую Column или l oop через каждую ячейку в Row 1 и использовать .EntireColumn для выполнения чего-либо; без использования .Select

'Используйте With statement, который соответствует вашим потребностям

'define your variables
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") 'change worksheet name as needed
Dim lCol As Long: lCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column 'define last used column in row 1

    For i = 2 To lCol
        'If you want to loop through each column, you can use...
        With ws.Columns(i)
            'you can do something, for example using .Delete or .Copy, etc.
        End With

        'or

        'If you want to loop through each cell in row 1, the you can use...
        With ws.Cells(1, i)
            'you can do something, for example using .EntireColumn.Delete or .EntireColumn.Copy, etc.
        End With
    Next i