select列中的所有空白单元格

我发现下面的代码来select列中的下一个空白单元格。 此代码find下一个空白单元格（从A1开始的数据）。 假设我有来自A1-A15的数据，然后是空白单元格。 此代码确实selectA16，因为它是下一个空白单元格。

不过，我在下面有更多的数据，我想select每组数据下的所有空白单元格。 请告知如何修改此代码，以便它可以遍历整个列A并select所有下一个空白单元格（如果我理解我写的内容）。 谢谢

Sub FindNextCell() 'Locate the next data entry cell in data entry column A Dim FirstCell As String Dim i As Integer FirstCell = "A1" Range(FirstCell).Select Do Until ActiveCell.Value = "" If ActiveCell.Value = "" Then Exit Do Else ActiveCell.Offset(1, 0).Select End If Loop End Sub 

Answer 1

如果你想select第一个和最后一个单元格之间的所有空白，你可以使用这个

 Dim lr As Long lr = Range("A" & Rows.Count).End(xlUp).Row Range("A1:A" & lr).SpecialCells(xlCellTypeBlanks).Select 

注意： 避免使用。select