保留主工作簿中的格式

Question

我正在将多个工作簿中的数据收集到主工作簿中。我想保留我的主工作簿中的文本格式，因为它在我的源工作簿中。任何人都可以帮忙吗？

Answer 1

所以这里是你如何从一个工作簿复制到另一个工作簿，保持源格式。您可以根据需要调整工作簿的范围和名称。

Workbooks("source").Worksheets("Sheet1").Range("A1").Copy
Workbooks("destination").Worksheets("Sheet1").Range("A1").PasteSpecial paste:=xlPasteAllUsingSourceTheme