将单元格区域复制到工作表组中所有其他工作表的同一位置。
expression.FillAcrossSheets(Range, Type)
expression 必需。该表达式返回“应用于”列表中的对象之一。
Range Range 类型,必需。要复制到工作表组中所有其他工作表的单元格区域。该区域必须位于工作表组中某个工作表之上。
Type XlFillWith 类型,可选。指定如何复制区域。
XlFillWith 可为以下 XlFillWith 常量之一。 |
xlFillWithAll default |
xlFillWithContents |
xlFillWithFormats |
本示例用工作表 Sheet1 上 A1:A5 区域的内容填充工作表 Sheet5 和 Sheet7 上的相同单元格区域。
x = Array("Sheet1", "Sheet5", "Sheet7")
Sheets(x).FillAcrossSheets _
Worksheets("Sheet1").Range("A1:C5")