如何在VBA中选中中间包含空白单元格的多个单元格？

假设你已经通过代码动态定位到黄色标记的空白单元格（记为blankCell），以下几种简便方法可以实现动态选中目标区域：

方法1：用CurrentRegion快速选中连续数据区域 #

如果你的数据是连续的（没有空行/空列打断），这是最省事的方法：

Dim blankCell As Range
Set blankCell = '这里替换成你定位黄色空白单元格的代码'

' 选中空白单元格上一行所在的整个连续数据区域
blankCell.Offset(-1, 0).CurrentRegion.Select

CurrentRegion会自动识别包含目标单元格的整块连续数据区域，周围以空行/空列为边界，完美适配大多数规整的数据表。

方法2：精准指定列范围 #

如果需要自定义列的范围（比如从A列到空白单元格所在列），可以用以下代码：

Dim blankCell As Range
Dim dataRange As Range
Set blankCell = '你的定位代码'

' 获取从空白单元格列的第一个非空行，到空白单元格上一行，且包含A列到当前列的区域
Set dataRange = Range(blankCell.End(xlUp), Cells(blankCell.Row - 1, blankCell.Column))
dataRange.Select

' 若要扩展到最后一列有数据的列，改成：
Dim lastCol As Long
lastCol = ActiveSheet.UsedRange.Columns.Count
Set dataRange = Range(blankCell.End(xlUp), Cells(blankCell.Row - 1, lastCol))
dataRange.Select

方法3：仅选中空白单元格所在列的上方数据 #

如果只需要处理当前列的上方数据：

Dim blankCell As Range
Dim dataRange As Range
Set blankCell = '你的定位代码'

' 选中当前列从第一个非空行到空白单元格上一行的区域
Set dataRange = Range(blankCell.End(xlUp), blankCell.Offset(-1, 0))
dataRange.Select

内容的提问来源于stack exchange，提问作者ZelelB