VBA宏中从B列末尾向右移动单元格选中区域的替代方法咨询

SendKeys真的是个大坑——它完全依赖窗口焦点，稍不注意就会出各种莫名其妙的问题，绝对不是处理单元格区域的靠谱方式。咱们直接用VBA的Range对象操作来搞定，精准又稳定，根本不需要模拟键盘操作。

先理清楚你的需求逻辑：

1. 复制C5单元格的公式
2. 定位到B列从B5开始的最后一个非空单元格
3. 将目标区域从这个B列单元格向右偏移一列到C列，再向上延伸到C5，形成要粘贴的范围
4. 完成公式粘贴

对应的优化代码如下：

Sub CopyFormulaToTargetRange()
    ' 复制C5单元格的公式
    Range("C5").Copy
    
    ' 获取B列从B5开始的最后一个非空单元格
    Dim lastCellInB As Range
    Set lastCellInB = Range("B5").End(xlDown)
    
    ' 核心操作：将B列末尾单元格向右偏移1列，再和C5组成目标区域
    Dim targetRange As Range
    Set targetRange = Range(Range("C5"), lastCellInB.Offset(0, 1))
    
    ' 仅粘贴公式（如果需要带格式，直接用targetRange.Paste即可）
    targetRange.PasteSpecial xlPasteFormulas
    
    ' 清除剪贴板选中状态，避免后续误操作
    Application.CutCopyMode = False
End Sub

关键细节说明： #

• Offset(0, 1)：这是替代SendKeys的核心！它属于Range对象的原生方法，Offset(行偏移量, 列偏移量)，这里0表示行位置不变，1表示向右移动1列，完全精准可控，和键盘模拟彻底说拜拜。
• 全程操作Range对象，不管Excel窗口是否在前台，都能稳定运行，不会出现Tab键乱跑的情况。
• 如果你担心B列只有B5一个单元格（下方无内容），可以加个安全判断避免出错：

Sub CopyFormulaToTargetRange_Safe()
    Range("C5").Copy
    
    Dim lastCellInB As Range
    Set lastCellInB = Range("B5").End(xlDown)
    
    ' 如果End(xlDown)跑到了表格外（即B5下方为空），重新定位回B5
    If lastCellInB.Row > Cells(Rows.Count, "B").Row Then
        Set lastCellInB = Range("B5")
    End If
    
    Dim targetRange As Range
    Set targetRange = Range(Range("C5"), lastCellInB.Offset(0, 1))
    
    targetRange.PasteSpecial xlPasteFormulas
    Application.CutCopyMode = False
End Sub

这样写出来的代码不仅解决了你的问题，还比原来的方案更健壮、易维护。

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