Vba 如何引用行中的单元格范围

这是一个示例代码。我正在尝试获取单元格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列中的值组成。我遗漏了什么？

因为您正在尝试获取特定单元格的数据，而您已经知道（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

---

你能给我看一下GetLastRow函数代码吗？没有人回答这个问题。。。除了D和F之外，我什么也没得到。那是不可能的。