如何修改VBA代码实现多列依次在自身右侧插入副本？

要实现每列复制后插入到自身右侧，不能一次性处理选中的所有列，得从右往左逐个列单独处理——因为插入列会改变后续列的位置，倒序循环能避免索引混乱。

替换你原来的代码为以下VBA代码：

Dim selectedCols As Range
Dim i As Integer

Set selectedCols = Selection.EntireColumn
' 从选中列的最后一列开始，倒序循环处理
For i = selectedCols.Columns.Count To 1 Step -1
    ' 复制当前列
    selectedCols.Columns(i).Copy
    ' 在当前列右侧插入复制的内容
    selectedCols.Columns(i).Insert Shift:=xlToRight
Next i
' 清除剪贴板内容，避免后续误操作
Application.CutCopyMode = False

代码说明 #

• 先把选中的列范围存到selectedCols变量，避免后续插入列后选中范围变化导致错误。
• 倒序循环（从最后一列到第一列）：比如选中A、B、C列，先处理C列，复制后插入到C右侧；再处理B列，此时B列的位置没被之前的插入操作影响；最后处理A列，最终得到A、A、B、B、C、C的效果，符合你的需求。
• Application.CutCopyMode = False是清除剪贴板的复制状态，防止Excel一直显示复制的虚线框。

原代码问题分析 #

你原来的代码是一次性复制所有选中列，然后Selection.Insert Shift:=xlToRight会把复制的所有列整体插入到选中范围的最右侧，所以才会出现A、B、C后跟着D、E、F（和原列对应）的结果，而不是每列右侧都插入副本。

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