Excel VBA中存在空白列时如何用.End方法选中整行有数据区域？

End(xlToRight) 原生逻辑是从起始单元格向右遍历，遇到第一个空白单元格就停止，没有可直接忽略中间空白的参数，你可以改用从行最右侧向左查找最后一个非空单元格的逻辑实现需求，完全匹配你给出的选中规则。

完整替换代码 #

Dim rowNum As Long, lastCol As Long
' 确定目标行号
rowNum = 2 + RowOffset
' 从当前行工作表最右列向左查找最后一个有数据的列号
lastCol = Cells(rowNum, Columns.Count).End(xlToLeft).Column
' 仅当行内存在有效数据（列号≥起始列2）时设置背景色
If lastCol >= 2 Then
    Range(Cells(rowNum, 2), Cells(rowNum, lastCol)).Interior.Color = vbBlack
End If

效果说明 #

完全匹配你的预期选中规则：

• 行内容为X X X X X：最右非空列是第5列，选中第2到5列共5个单元格
• 行内容为X X O X X：最右非空列是第5列，选中第2到5列共5个单元格，自动忽略中间空白
• 行内容为X X X X O：最右非空列是第4列，选中第2到4列共4个单元格

可选优化 #

如果你的表格列数固定，或者希望提升运行效率，可以提前计算整个表格的最大列号，替换代码中的Columns.Count，避免遍历整工作表的所有列。

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