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和＆amp;的最后使用过的行。 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

如何引用一行中的一系列单元格

1 个答案: