FillAcrossSheets 方法

       

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

expression.FillAcrossSheets(Range, Type)

expression   必需。该表达式返回“应用于”列表中的对象之一。

Range  Range 类型,必需。要复制到工作表组中所有其他工作表的单元格区域。该区域必须位于工作表组中某个工作表之上。

Type  XlFillWith 类型,可选。指定如何复制区域。

示例

本示例用工作表 Sheet1 上 A1:A5 区域的内容填充工作表 Sheet5 和 Sheet7 上的相同单元格区域。

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