如何連續引用一系列單元格

Question

這是示例代碼。 我正在嘗試獲取單元格D9，E9和F9的值

Private Sub test()

Dim myRange As Range
Dim lastrow As Long

Set ws1 = ThisWorkbook.Sheets("Sheet1")
lastrow = ws1.Range("A" & ws1.Rows.Count).End(xlUp).Row
Set myRange = ws1.Range("D9:F" & lastrow )

For Each cell In myRange
    Debug.Print cell
Next cell

End Sub

但是此單元格還包含G和H列中的值。我缺少什么？

Answer 1

由於您正在嘗試獲取特定單元格的數據，這些單元格已經知道（D9，E9，F9）的地址，因此您不必擔心獲取最后一行。 也許您想問一個不同的問題？ 也許您想從第9行到D，E和F列的最后使用的行獲取所有數據？ 無論如何，要回答所問的問題，以下是修改后的代碼，它將返回請求的值：

Sub test()

    Dim myRange As Range
    Dim cell As Variant
    Dim ws1 As Worksheet

    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set myRange = ws1.Range("D9:F9")

    For Each cell In myRange
        Debug.Print cell
    Next cell

End Sub