VBA Range选择代码问题：Set dr = Range(...)中xlToRight未生效

首先，你的代码里(xlToRight)的用法是错误的，这就是它没生效的核心原因。

错误点拆解 #

Cells(Rows.Count, Selection.Column).End(xlUp)会返回你所选列的最后一个非空单元格，但后面加(xlToRight)的写法根本不是VBA里获取右侧最后非空单元格的正确方式：

• 单元格对象后的()是用来按行/列偏移量引用单元格的（比如Range("A1")(2,3)等价于Range("C3")），而xlToRight是一个方向常量，它的实际数值是-4161——这意味着你其实是在让这个单元格往左偏移4161列，这显然超出了Excel的有效列范围（Excel最多只有16384列），所以最终得到的单元格是无效的，导致你的Range范围完全不符合预期。

正确实现方式 #

根据你的需求（覆盖多行多列、数据分散填充的完整区域），这里提供两种常用的正确写法：

1. 基于当前选择单元格，扩展到对应数据区域的右下角

如果你想从当前选择的单元格，扩展到该列最后一行非空单元格所在行的最右侧非空列，可以这么写：

Dim lastRow As Long
Dim lastCol As Long
Dim dr As Range

' 获取所选列的最后一行非空行号
lastRow = Cells(Rows.Count, Selection.Column).End(xlUp).Row
' 获取上述最后一行的最右侧非空列号
lastCol = Cells(lastRow, Columns.Count).End(xlToLeft).Column

' 定义目标范围：从选择区域到右下角的最后一个非空单元格
Set dr = Range(Selection, Cells(lastRow, lastCol))

2. 选择整个工作表中所有有数据的区域（如果你的需求是全表数据）

如果你的目标是选中工作表里所有包含数据的单元格（不管当前选在哪里），可以用这种精准获取实际有内容区域的方式：

Dim lastRow As Long
Dim lastCol As Long
Dim dr As Range

' 获取全表最后一行非空行号
lastRow = Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious).Row
' 获取全表最后一列非空列号
lastCol = Cells.Find(What:="*", SearchOrder:=xlColumns, SearchDirection:=xlPrevious).Column

Set dr = Range(Selection, Cells(lastRow, lastCol))
' 如果不需要包含当前选择，直接写 Set dr = Range(Cells(1,1), Cells(lastRow, lastCol))

补充：如果是连续数据区域

如果你的数据是连续的（没有空行空列隔断），可以用更简洁的写法：

Set dr = Selection.CurrentRegion

但这个方法只适用于连续的块级数据，如果数据分散有空白行/列，就会只选中当前选择所在的连续块，不符合你的需求。

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