Excel跨工作表自动填充需求及VBA代码调试求助

1. 修复Dates表输入日期自动填充Finance对应单元格金额的问题 #

你的原VBA代码存在逻辑错误，比如错误使用Find方法定位单元格、赋值方向颠倒，以下是修正后的代码（需粘贴到Dates工作表的代码模块中）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsFinance As Worksheet
    Dim cell As Range
    Dim targetRow As Long, targetCol As Integer
    
    Set wsFinance = ThisWorkbook.Sheets("Finance")
    
    ' 仅处理D至BA列的周结日期区域
    If Not Intersect(Target, Me.Range("D:BA")) Is Nothing Then
        ' 关闭事件触发，避免修改Finance表时循环触发Change事件
        Application.EnableEvents = False
        
        ' 遍历所有被修改的单元格（支持多选批量输入）
        For Each cell In Target
            targetRow = cell.Row
            targetCol = cell.Column
            
            If IsDate(cell.Value) Then
                ' 将Finance对应行B列的金额填充到Finance表同位置单元格
                wsFinance.Cells(targetRow, targetCol).Value = wsFinance.Cells(targetRow, "B").Value
            Else
                ' 删除日期时清空Finance对应单元格
                wsFinance.Cells(targetRow, targetCol).ClearContents
            End If
        Next cell
        
        ' 重新开启事件触发
        Application.EnableEvents = True
    End If
End Sub

关键修正点：

• 直接通过单元格的行/列定位对应位置，无需Find方法
• 限定仅处理周结日期列（D至BA），避免误触发
• 支持多单元格批量修改，同时处理日期删除的清空逻辑

2. 批量同步Finance表第26行到Dates表对应单元格 #

提供两种高效方法：

方法1：手动批量输入公式（无需VBA） #

1. 切换到Dates表，选中D26:BA26区域
2. 在编辑栏输入公式 =Finance!D26
3. 按下 Ctrl + Enter，Excel会自动将公式批量填充到选中区域，每个单元格自动对应Finance表同列的第26行值

方法2：VBA批量设置（适合重复操作场景） #

插入标准模块，粘贴以下代码，运行一次即可完成同步：

Sub SyncFinanceRow26ToDates()
    Dim wsFinance As Worksheet, wsDates As Worksheet
    Dim syncRange As Range
    
    Set wsFinance = ThisWorkbook.Sheets("Finance")
    Set wsDates = ThisWorkbook.Sheets("Dates")
    Set syncRange = wsDates.Range("D26:BA26")
    
    ' 批量设置相对引用公式
    syncRange.FormulaR1C1 = "=Finance!RC"
End Sub

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