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

问题描述：

Sub Macro1() 

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

End Sub

我可以连续选择空单元格。有没有办法检索这些单元格的所有单元格引用？随着单元格引用我的意思是在

Cells(x,y)

把你的代码放在这里 – Trimax

我不知道如何对它进行编码。因此我不能添加我的代码.... – koteletje

答

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。

为什么为什么要使用'select'和'selection'？ –

答

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

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

相关推荐