Question

我找到下面的代码来选择列中的下一个空白单元格。此代码查找下一个空白单元格（从A1开始的数据）。假设我有来自A1-A15的数据，然后是空白单元格。此代码选择A16，因为它是下一个空白单元格。

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

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

如果要选择第一个和最后一个单元格之间的所有空白，可以使用此

Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row

Range("A1:A" & lr).SpecialCells(xlCellTypeBlanks).Select

注意：Avoid using .Select

选择列中的所有空白单元格

1 个答案: