如何用VBA宏复制Excel最后一列数据并将其插入到相邻右侧

你提供的样表结构如下：

现有代码可行性评估 #

• 第一段代码不符合需求：逻辑是复制当前工作表最后一列到最右侧，运行后只会不断复制末尾的合计列，无法实现复制BK列的要求。
• 第二段代码有明显缺陷，无法直接运行：
  1. 存在语法错误：LastCol = rLastCell.Column 和后续复制代码写在同一行，运行直接报错
  2. 硬编码LastCol-4的偏移逻辑非常脆弱，如果你后续在合计列前增删其他列，偏移量错位后会复制到错误的列
  3. 没有容错处理，当工作表为空、被保护时，运行会直接抛出未捕获的错误

更稳定的实现方案 #

实现逻辑 #

直接以BK列为固定复制源，每次运行在BK列右侧插入新复制的列，自动把后面的空白区域、合计列向后偏移，不受后续列增删操作影响。

最终代码 #

Sub 新增BK复制列()
    Dim ws As Worksheet
    Dim sourceCol As Long
    ' 错误捕获，避免异常崩溃
    On Error GoTo ErrHandle
    
    Set ws = ActiveSheet
    ' 直接定位BK列，无需手动计算列号，定位精准
    sourceCol = ws.Range("BK1").Column
    
    ' 复制源列并插入到源列右侧
    ws.Columns(sourceCol).Copy
    ws.Columns(sourceCol + 1).Insert Shift:=xlToRight
    ' 清除复制选中状态，避免界面残留选中虚线
    Application.CutCopyMode = False
    
    Exit Sub
ErrHandle:
    MsgBox "操作失败，请检查工作表是否被保护、是否存在BK列：" & Err.Description, vbExclamation
End Sub

使用说明 #

你可以直接把这段宏绑定到按钮上，每次点击就会自动新增一列BK的复制列，完全符合你重复新增的需求。

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