Tag: 页面中断

通过Pagebreak合并文件

我想写一个程序，通过分页符合并两个文件。 例如，如果我有两个文件A和B，每个文件有三个分页符，我想通过复制分页符1之前的文件A中的所有数据，而不是分页符1之前的文件B中的所有数据来创build一个新文件，而不是所有数据在分页1和分页2之间的文件A中，比分页1和分页2之间的文件B中的所有数据等等 我有下面的代码，它只是打开两个文件，并从文件A复制数据，而不是从文件B的数据。我不知道如何更改代码合并两个循环，以便新文件将复制所有数据在分页1之前的文件A中，分页1之前的文件B中的所有数据等等。 任何帮助将非常感激！ 谢谢！ Sub Merge_Mchpg() 'Open two workbooks Workbooks.Open (Workbooks("Filepath.xlsx") Workbooks.Open (Workbooks("Filepath.xlsx")) Dim pgBreak As Variant Dim pgBreak2 As Variant Dim pgbrk1 As Integer 'Define variable for first worksheet pagebreaks pgbrk1 = 1 Dim pgbrk2 As Integer 'Define variable for second worksheet pagebreaks Dim SourceRange As Range 'Define the source range in the […]