技术需求：编写VBA代码将公式拖拽至对应今日日期的列

以下是满足需求的VBA代码，核心逻辑是定位目标日期所在列，再高效批量复制公式：

Sub CopyFormulasToTargetDate()
    Dim targetDate As Date
    Dim dateRow As Range
    Dim targetCol As Long
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    ' 绑定目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取Sheet2 A1中的目标日期
    targetDate = targetSheet.Range("A1").Value
    
    ' 在Sheet1第一行查找目标日期的列号
    Set dateRow = sourceSheet.Rows(1)
    On Error Resume Next ' 捕获找不到日期的情况
    targetCol = dateRow.Find(What:=targetDate, LookIn:=xlValues, LookAt:=xlWhole).Column
    On Error GoTo 0
    
    ' 校验查找结果
    If targetCol = 0 Then
        MsgBox "Sheet1中未匹配到指定日期", vbExclamation
        Exit Sub
    End If
    
    ' 从A列开始，将第2行公式复制到目标列
    sourceSheet.Range("A2", sourceSheet.Cells(2, targetCol)).FillRight
End Sub

关键细节说明： #

• 精准日期匹配：LookAt:=xlWhole确保只匹配完全一致的日期，避免误匹配相似日期
• 高效复制：使用FillRight方法批量复制公式，比循环逐个单元格复制性能更优
• 错误防护：加入找不到日期的判断逻辑，避免代码因运行时错误中断
• 明确对象绑定：直接指定工作表对象，避免因工作表激活状态变化导致的错误

使用前提： #

• Sheet1第一行需为连续日期列（A-Z对应1/1/24至1/26/24），且日期格式统一为日期值（非文本格式）
• Sheet2的A1单元格需存储有效日期值

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