VBA复制公式至单元格区域：代码运行异常求修正与合并

原代码问题分析 #

• formulaMain过程中存在多余的Next语句（无对应循环），会触发编译错误，这是代码运行不稳定的核心原因。
• 使用Select/Selection操作单元格，依赖当前选中状态，易因工作表切换、手动选中其他区域导致运行异常。

修正合并后的代码 #

Sub ProcessColumns()
    Dim ws As Worksheet
    ' 绑定当前工作表，避免ActiveSheet切换引发的错误
    Set ws = ActiveSheet
    
    ' 复制M1的公式到M2:M1280区域
    ws.Range("M2:M1280").FormulaR1C1 = ws.Range("M1").FormulaR1C1
    
    ' 复制N1的公式到N2:N1280区域
    ws.Range("N2:N1280").FormulaR1C1 = ws.Range("N1").FormulaR1C1
    
    ' 将N2:N1280的值直接赋值到L2:L1280，替代低效的复制粘贴
    ws.Range("L2:L1280").Value = ws.Range("N2:N1280").Value
End Sub

优化说明 #

1. 移除了原代码中多余的Next语句，修复编译错误。
2. 直接绑定工作表对象，避免依赖ActiveSheet的不确定性。
3. 替换Select/Selection为直接单元格操作，提升运行稳定性和执行效率。
4. 将三个独立子过程合并为一个，逻辑连贯，减少过程调用的潜在问题。
5. 用直接赋值Value = Value替代PasteSpecial，操作更高效且不易出错。

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