如何在Excel中插入列并保留公式？现有VBA代码需优化

默认情况下，Excel VBA插入列不会像插入行那样自动继承相邻列的公式或序列，需要手动添加复制粘贴逻辑来实现。以下是两种常见场景的优化代码：

方案1：插入列后继承左侧列的公式和格式 #

Sub InsertColWithLeftFormula()
    ' 定义要插入列的目标范围
    Dim targetCols As Range
    Set targetCols = Columns("BH:BL")
    
    ' 在目标位置插入新列，原列向右偏移
    targetCols.Insert Shift:=xlToRight
    
    ' 复制原目标列左侧的列（插入后新列的左侧就是原BH:BL的左邻列BG:BK）
    Columns("BG:BK").Copy
    ' 粘贴公式和数字格式到新插入的列
    Columns("BH:BL").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    
    ' 清除剪贴板，释放系统资源
    Application.CutCopyMode = False
End Sub

方案2：插入列后继承右侧列的公式和格式 #

如果需要继承插入位置右侧原有的列内容，可以先复制右侧列再插入：

Sub InsertColWithRightFormula()
    Dim targetCols As Range
    Set targetCols = Columns("BH:BL")
    
    ' 先复制目标位置的原列（即要继承内容的右侧列）
    targetCols.Copy
    
    ' 插入新列，此时新列会自动填充复制的公式和格式
    targetCols.Insert Shift:=xlToRight
    
    Application.CutCopyMode = False
End Sub

额外说明 #

• 避免使用Select：直接操作Range对象比选中区域的方式更高效，也能减少因选中区域意外变化导致的错误。
• 自定义粘贴内容：如果只需要复制公式不需要格式，可将xlPasteFormulasAndNumberFormats替换为xlPasteFormulas；如果需要包含格式和公式，保持原参数即可。
• 序列适配：对于通过公式生成的序列（如递增数字、日期），上述方法会自动继承生成逻辑，插入后序列会正常延续。

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