Question

通过以下代码

Sub Macro1()

Worksheets("Sheet1").Rows("1:1").SpecialCells(xlCellTypeBlanks).Select

End Sub

我可以连续选择空单元格。有没有办法检索这些细胞的所有细胞参考？对于单元格引用，我指的是

中的x和y

Cells(x,y)

Answer 1

这样做： -

Public Sub Sample()
Dim Rng As Range
Dim Cl  As Range

Worksheets("Sheet1").Rows("1:1").SpecialCells(xlCellTypeBlanks).Select

Set Rng = Selection
    For Each Cl In Rng.Cells
        Debug.Print "Row: " & Cl.Row & ", Column: " & Cl.Column
    Next
Set Rng = Nothing

End Sub

您的代码行选择了您想要的内容，代码使用Rng将该选择引用为Selection。然后，它会Rng中的每个项目循环为Cl。

Answer 2

不建议在Gary的回答中Select和Selection。考虑使用以下内容来实现同样的更简洁有效的方法。

Public Sub Sample()
Dim Cl  As Range

For Each cl In Worksheets("Sheet1").Rows("1:1").SpecialCells(xlCellTypeBlanks).Cells
    Debug.Print "Row: " & Cl.Row & ", Column: " & Cl.Column
Next

End Sub

vba - 连续选择空单元格的单元格引用

2 个答案: