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

我发现下面的代码以选择列中的下一个空白单元格。该代码找到下一个空白单元格（从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

来源

2014-09-04 Kaiser

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

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

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

注：Avoid using .Select

来源

2014-09-04 09:21:06

，像变魔术一样 – Kaiser 2014-09-04 10:00:56

你好我。感谢您在上面的帮助。我尝试了其他的东西，但它不起作用，所以需要你的帮助。你能否请告知如何在这些选定单元格中添加总和公式。选定的单元格（使用上面的代码）应该总和上面的所有单元格。因此，一个宏选择所有空白单元格和总和。干杯 – Kaiser 2014-09-04 10:10:38

@Kaiser我认为提出一个新问题是有道理的，因为这会使当前的问题和答案完全失效。打我一个链接到你的新问题，我会看到我能为你做什么。 – 2014-09-04 10:25:40

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

回答

相关问题