总表数据填充到多个分表指定单元格

Sub FillDataToMultipleWorksheets()
    Dim mainWorksheet1 As Worksheet
    Dim mainWorksheet2 As Worksheet
    Dim subWorksheets As Worksheets
    Dim dataRange1 As Range
    Dim dataRange2 As Range

    ' 设置总表和分表对象
    Set mainWorksheet1 = ThisWorkbook.Worksheets("总表1") ' 替换为总表1的名称
    Set mainWorksheet2 = ThisWorkbook.Worksheets("总表2") ' 替换为总表2的名称
    Set subWorksheets = ThisWorkbook.Worksheets

    ' 设置数据范围
    Set dataRange1 = mainWorksheet1.Range("A1:A" & mainWorksheet1.Cells(Rows.Count, 1).End(xlUp).Row) ' 替换为总表1数据的范围
    Set dataRange2 = mainWorksheet2.Range("A1:A" & mainWorksheet2.Cells(Rows.Count, 1).End(xlUp).Row) ' 替换为总表2数据的范围

    ' 填充总表1的数据到分表的指定单元格
    For Each subWorksheet In subWorksheets
        If subWorksheet.Name Like "*" & mainWorksheet1.Name & "*" Then
            subWorksheet.Range("D4:F4").Value = dataRange1.Value
        End If
    Next subWorksheet

    ' 填充总表2的数据到分表的指定单元格
    For Each subWorksheet In subWorksheets
        If subWorksheet.Name Like "*" & mainWorksheet2.Name & "*" Then
            subWorksheet.Range("F5:G5").Value = dataRange2.Value
        End If
    Next subWorksheet

    ' 清除变量
    Set mainWorksheet1 = Nothing
    Set mainWorksheet2 = Nothing
    Set subWorksheets = Nothing
    Set dataRange1 = Nothing
    Set dataRange2 = Nothing
End Sub