如何将某些列复制粘贴到另一个Excel工作表中,并为每个具有相同名称的工作表重复?

时间:2017-06-27 07:17:41

标签: excel vba excel-vba

所以我在这个问题上尝试了一些解决方案,但我仍然在寻找问题。我对VBA的经历也很有限,但我理解功能等。

问题描述: 我有两个excel文档,一个叫第1部分,另一个叫第2部分。每个部分由280个标签组成,称为T1-T280。文档是相同的,但每个文档只有一半可以处理,现在需要合并。

我希望使用VBA自动化方法,将第2部分的AZ列复制到第1部分,对应于T号(例如,第2部分的T20的AZ到CI需要粘贴在第1部分的T20的AZ到CI上)。

如果我可以管理上述内容,我想扩展此功能以允许5个部分。 (我只想知道如何添加对这些的引用以及如何指定范围函数)。在转发器功能中更容易做到这一点吗?

1 个答案:

答案 0 :(得分:0)

for each worksheet in part_2
    with worksheet
        .range(.columns(52), .columns(87)).copy _
                Destination := part_1.worksheets(worksheet.name).columns(52)
    end with
next worksheet

遍历part_2的所有工作表,复制所需的列并将其粘贴到part_1中。