vba - Auswahl von Zellbezügen von leeren Zellen in einer Reihe

Question

über den folgenden Code

Sub Macro1() 

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

End Sub 

kann ich die leeren Zellen in einer Zeile auswählen. Gibt es eine Möglichkeit, alle Zellbezüge dieser Zellen abzurufen? Mit Zellbezüge ich meine x und y in

Cells(x,y) 

Answer 1

Dies würde es tun: -

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 

Ihre Codezeile ausgewählt, was Sie wollten, die Code-Referenzen, dass die Auswahl als RngSelection verwenden. Dann durchläuft es jedes Element in Rng als Cl.

Answer 2

Die Select und Selection in Garys Antwort werden nicht empfohlen. Erwägen Sie, das Folgende für eine prägnantere und effizientere Methode zu verwenden, dasselbe zu erreichen.

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