如何对选中的F9:I9单元格使用xlDown扩展至F50:I50

核心原因 #

直接对多列选区使用xlDown只会作用于活动单元格所在的单列，不会自动扩展到其他列，所以无法实现多列同时延伸到最后一行。

实用解决方法 #

方法1：基于首列最后行号重定义选区（推荐） #

先定位目标列（比如F列）的最后有数据行，直接选中从F9到该列最后行、横跨4列的区域：

Dim lastRow As Long
' 从F列底部向上找最后一个非空单元格的行号（避免中间空行导致xlDown提前停止）
lastRow = Range("F" & Rows.Count).End(xlUp).Row
' 直接选中目标区域
Range("F9:I" & lastRow).Select

方法2：调整已有选区的大小 #

如果已经选中了F9:I9，可以通过Resize方法扩展选区行数：

Dim lastRow As Long
' 基于选区首列（F列）找最后行号
lastRow = Selection.Columns(1).End(xlDown).Row
' 重新调整选区行数
Selection.Resize(lastRow - Selection.Row + 1).Select

注意：如果F列中间有空行，xlDown会停在空行的上一行，此时建议改用xlUp从列底定位更准确：

lastRow = Selection.Columns(1).EntireColumn.Cells(Rows.Count, 1).End(xlUp).Row

方法3：手动模拟扩展操作 #

先选中首列的完整数据段，再扩展到其他列：

' 选中F9到F列最后数据行
Range("F9", Range("F9").End(xlDown)).Select
' 扩展选区到I列
Selection.Resize(, 4).Select

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