VBA - 連續空單元格的單元格引用的選擇

Question

通過下面的代碼

Sub Macro1() 

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

End Sub 

我可以連續選擇空單元格。有沒有辦法檢索這些單元格的所有單元格引用？隨着單元格引用我的意思是在

Cells(x,y) 

Answer 1

x和y這將做到這一點： - 選擇

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

Select和Selection在Gary的回答中不推薦。考慮使用下面的更簡潔高效的方法來實現同樣的事情。

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