分享

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

 hercules028 2021-02-02

  • FillAcrossSheets 方法 (Excel)

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

语法

FillAcrossSheets(Range, Type)

参数

名称必需/可选数据类型说明
Range必需Range要填充到集合中所有工作表上的单元格区域。该区域必须来自集合中的某个工作表。
Type可选

XlFillWith

指定如何复制区域。

备注(XlFillWith种类)

名称

描述
xlFillWithAll-4104复制内容和格式。
xlFillWithContents2只复制内容。
xlFillWithFormats-4122只复制格式。

例1:

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

Sub test()Dim targetArea '目标工作表数组targetArea = Array('Sheet1', 'Sheet2', 'Sheet3', 'Sheet4')Sheets(targetArea).FillAcrossSheets Worksheets('Sheet1').Range('A1:A5')End Sub

执行后结果

例2:
本示例用工作表 Sheet1 上 A1:A5 单元格区域的格式填充工作表 Sheet2 和 Sheet3和Sheet4 上的相同区域。

使用Type参数

Sub test()Dim targetArea '目标工作表数组targetArea = Array('Sheet1', 'Sheet2', 'Sheet3', 'Sheet4')Sheets(targetArea).FillAcrossSheets Range:=Worksheets('Sheet1').Range('A1:A5'), Type:=xlFillWithFormatsEnd Sub

执行后结果


    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多