excel - 如何从第 3 行开始选择整列 - vba

Question

嘿，伙计们，这是我的代码，它正在工作，但我不想选择整个列，而是想选择第 3 行之后的所有列，
例如，我想选择所有列 b 但在 B3 之后
我希望这是有道理的。

有任何想法吗？

Sub HorizontalLoop()
Dim lCol As Long

Sheets("output").Select
For lCol = 1 To 100

Dim inputrange As String
If Not IsEmpty(Cells(lCol).Value) Then
inputrange = Cells(1, lCol).Value

Cells(1, lCol).EntireColumn.Select
Selection.Copy
Sheets("input").Select
ActiveSheet.range(inputrange).Select
ActiveSheet.Paste
Sheets("output").Select
End If
Next lCol
End Sub

任何帮助将不胜感激:)
谢谢
H

Answer 1

这是您的代码(带有您的答案)，稍微清理了一下:

Sub HorizontalLoop()
Dim lCol As Long
Dim inputrange As String
With Sheets("output")
    For lCol = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
        If Not IsEmpty(.Cells(1, lCol).Value) Then
            inputrange = .Cells(1, lCol).Value
            .Range(.Cells(3, lCol), .Cells(.Rows.Count, lCol)).Copy Sheets("input").Range(inputrange)
        End If
    Next lCol
End With
End Sub

尽量避免使用 .Select and .Activate .

此外，最好在使用两张纸时确保正确的亲子关系。 With block 及其对应的 .允许这样做。