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はお勧めできません。同じことを達成するためのより簡潔で効率的な方法については、以下を使用することを検討してください。

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