は等...、私は、次のループを実行しようとしていため、次のループ

Question

で別の行を選択する先頭の 、私はその後、1 & 4行、その後、1 & 3行、行1 & 2]を選択します 私は次のようにしましたが、行番号の代わりに列iとして "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 

---

注：どこへ行く

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

もう一つ別の方法でコピーしたいRowsの各対の間、Unionを使用している：実際にSelect範囲はする必要があってはなりません

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である必要があります。完全な範囲で直接コピーを使用できます。