为何VBA中Range变量会自行变更？宏选区异常问题咨询

你遇到的这个问题其实是VBA中Range对象的一个特性：当你对单元格执行Cut操作时，原来指向该单元格的Range对象会自动更新为粘贴后的新位置。这是因为Cut操作本质是移动单元格，而Range对象会跟踪它所指向的单元格的位置变化，所以你的rngStart变量最后就变成了粘贴目标单元格的引用，而非初始选中的区域。

要解决这个问题，我们需要存储初始选中区域的静态标识（比如完整地址字符串），而不是直接存储Range对象引用。这样即使单元格被移动，我们也能通过这个标识重新定位到初始区域。

修改后的代码如下：

Sub Macro2()
    Application.ScreenUpdating = False
    
    ' 存储初始选中区域的完整地址（包含工作表信息，避免跨表时出错）
    Dim startAddr As String
    startAddr = Selection.Address(External:=True)
    
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 执行剪切操作
    Selection.Cut
    
    ' 查找B列第一个空单元格
    Dim targetCell As Range
    For Each targetCell In ws.Columns(2).Cells
        If IsEmpty(targetCell) Then
            targetCell.Select
            Exit For
        End If
    Next targetCell
    
    ' 粘贴内容
    ActiveSheet.Paste
    
    ' 通过存储的地址重新选中初始区域
    Range(startAddr).Select
    
    Application.ScreenUpdating = True
End Sub

尽量避免使用Select和ActiveSheet这类依赖活动对象的语句，它们不仅容易出错，还会降低宏的运行效率。我们可以直接操作Range对象，跳过手动选中的步骤：

Sub Macro2_Improved()
    Application.ScreenUpdating = False
    
    Dim rngStart As Range
    Set rngStart = Selection ' 这里存储Range对象没问题，因为我们不会依赖它跟踪位置
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim targetCell As Range
    ' 更高效地查找B列第一个空单元格（避免遍历整列所有单元格）
    Set targetCell = ws.Columns(2).Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not targetCell Is Nothing Then
        ' 直接剪切粘贴，无需选中任何单元格
        rngStart.Cut Destination:=targetCell
    End If
    
    ' 重新选中初始区域
    rngStart.Select
    
    Application.ScreenUpdating = True
End Sub

这个优化版本中，我们用Cut Destination:=targetCell直接完成剪切粘贴操作，不需要手动选中单元格，而且rngStart不会被修改——因为没有通过选中操作触发Range对象的位置跟踪逻辑。代码更简洁可靠，运行速度也更快。

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