如何在循環外設置範圍並在其內部使用

Question

我讀過很多問題，重新讓我避免使用選擇。所以我試圖設置一個目標單元格，但是我遇到了一個問題：我想使用For循環來填充一個表格，但是每次循環都會改變目標單元格。例如：

Sub try() 

Dim target As Range 
Set target = Worksheets("Data").Cells(i, 1) 

For i = 1 To 10 
    target.Value = i 
Next i 

End Sub 

那麼我可以在循環中使用Range嗎？

如果我在For Loop中設置目標，恐怕它不會比我直接在Loop中選擇單元格Worksheets("Data").Cells(i, 1)更快？因爲我實際上會有很多目標可供使用，所以我希望找到一種更簡單的方法來設置目標並每次填充它們而不必一一設置目標。

對不起，如果我發佈了一個重複的問題，因爲我沒有在網上找到類似的問題或答案。如果你有一個想法，請留下評論。謝謝！

Answer 1

根據您對「閱讀」每一行的評論。此代碼使用For Each並檢查每個單元格以查看要執行的操作。

Public Sub Test() 

    Dim rMyRange As Range 
    Dim rCell As Range 

    'Define a range on the same sheet. 
    Set rMyRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:A15,C1:C20,D18,E19:E20") 

    'Add another range using Union just for the hell of it. 
    Set rMyRange = Union(rMyRange, ThisWorkbook.Worksheets("Sheet1").Range("F30")) 

    'Step through each cell in rMyRange and decide what to do based on contents/formatting of cell. 
    For Each rCell In rMyRange 
     If rCell = "Colour" Then 'Value is default property. 
      rCell.Interior.Color = RGB(255, 0, 0) 
     Else 
      Select Case rCell.Font.Color 
       Case 255 'Red 
        rCell = "Red" 
       Case 5287936 'Green 
        rCell = "Green" 
       Case Else 
        rCell = "Some Other Colour" 
      End Select 
     End If 
    Next rCell 

End Sub