Worksheets.FillAcrossSheets 方法

将单元格区域复制到集合中所有其他工作表的同一位置。

x = Array("Sheet1", "Sheet5", "Sheet7")
Sheets(x).FillAcrossSheets _
    Worksheets("Sheet1").Range("A1:C5")