Question

我正在尝试进行For-Next循环，在开始时，我将选择第1行和第2行，然后是第1行和第3行，然后第1行和第4行......等等我试过以下但是excel会对待我的＆＃34;我＆＃34;作为列i而不是行号。如何解决这个问题？

Sub test123()
Dim i As Long
For i = 2 To 51
    Range("1:1,i:i").Select
    Selection.Copy
'other code
Next i
End Sub

Answer 1

您无法在String中插入变量名称 - 您需要在String中包含变量的值

Sub test123()
    Dim i As Long
    For i = 2 To 51
        Range("1:1," & i & ":" & i).Select
        Selection.Copy
        'other code
    Next i
End Sub

注意：实际上不需要Select范围：

Sub test123()
    Dim i As Long
    For i = 2 To 51
        Range("1:1," & i & ":" & i).Copy
        'other code
    Next i
End Sub

Answer 2

另一种方法是在要复制的每对Union之间使用Rows：

Option Explicit

Sub test123()

Dim i As Long
For i = 2 To 51
    Union(Rows(1), Rows(i)).Copy
    'other code       
Next i

End Sub

注意：在复制之前需要Select范围，您可以直接在完全限定的范围内使用副本。

在for-next循环中选择单独的行

2 个答案: