求VBA代码：根据Input工作表月份值复制Workings工作表公式

以下是满足需求的VBA代码，直接复制到Excel的VBA编辑器（Alt+F11）的模块中即可使用：

Sub CopyMonthFormula()
    Dim inputWs As Worksheet, workingsWs As Worksheet
    Dim targetMonth As Integer
    Dim monthRow As Range, foundCell As Range
    Dim copyCol As Integer, pasteCol As Integer
    
    ' 绑定工作表对象
    Set inputWs = ThisWorkbook.Worksheets("Input")
    Set workingsWs = ThisWorkbook.Worksheets("Workings")
    
    ' 获取Input表中的目标月份（默认取A1，可根据实际修改单元格地址）
    targetMonth = inputWs.Range("A1").Value
    
    ' 绑定Workings表的月份行区域（默认取第1行，可根据实际修改行号）
    Set monthRow = workingsWs.Rows(1)
    
    ' 在月份行中精准查找目标月份数值
    Set foundCell = monthRow.Find(What:=targetMonth, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 执行核心逻辑
    If Not foundCell Is Nothing Then
        ' 按需求计算复制列和粘贴列（对应示例：3月→复制1月列、粘贴到2月列）
        copyCol = foundCell.Column - 2
        pasteCol = foundCell.Column - 1
        
        ' 校验列号有效性
        If copyCol >= 1 And pasteCol >= 1 Then
            ' 复制整列公式并覆盖目标列
            workingsWs.Columns(copyCol).Copy
            workingsWs.Columns(pasteCol).PasteSpecial Paste:=xlPasteFormulas
            ' 清空剪贴板
            Application.CutCopyMode = False
            MsgBox "公式复制完成！"
        Else
            MsgBox "目标月份对应的列超出有效范围，请检查输入！"
        End If
    Else
        MsgBox "在Workings表中未找到指定的月份！"
    End If
End Sub

可调整参数说明 #

• inputWs.Range("A1")：如果你的月份值不是存在Input表的A1单元格，替换为实际存储地址
• workingsWs.Rows(1)：如果Workings表的月份行不是第1行，替换为对应的行号（比如Rows(3)）
• 列计算逻辑：如果需求有变化，直接修改copyCol和pasteCol的计算式即可，比如要复制目标列的前一列到目标列，就改成copyCol = foundCell.Column -1、pasteCol = foundCell.Column

使用步骤 #

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 右键点击左侧工作簿名称，选择「插入」→「模块」
3. 将代码粘贴到模块窗口中
4. 返回Excel，按Alt+F8选择CopyMonthFormula执行

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