我需要使用一个表单的格式来改变700个excel文件的格式

所以，我有700个Excel文件，每个文件都需要在一个表格中更改格式。

我有一个正确的格式，我试图复制，然后粘贴特殊格式的主表。 但是这似乎不起作用，当它贴在单个文件中时，它就变成灰色。

wsCopyFrom.Range("A810:A01134").Copy wsCopyTo.Range("A1:AO325").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False 

这是我在macros中的代码

任何帮助的想法？

Answer 1

这适用于我：

 Sheets("Master").Select Cells.Select Selection.Copy 'Loop this part Sheets("SheetA").Select Cells.Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False 'Loop up to here Application.CutCopyMode = False 

试一下，你只需要find一种方法来循环select所有的表。