[已解决]如何将一簿内所有表格的格式设置成与“样表”一样的格式？

小雨饰品

如何用VBA将一工作簿内除“样表”以外的所有表格的格式，设置成与“样表”一样的格式（包括行高、行宽、字体、字大小）？谢谢谢啦

最佳答案

月排行榜 / 总排行榜

芐雨

2014-8-25 14:40

(, 下载次数: 1)

上传

点击文件名下载附件

这样试试

1. Sub Macro1()
   
2.     Application.ScreenUpdating = False
   
3. 
   
4.     For i = 1 To Sheets.Count
   
5.         If Sheets(i).Name <> "样表" Then
   
6.             Sheets("样表").Cells.Copy
   
7.             With Sheets(i)
   
8.                 .Cells.PasteSpecial Paste:=xlPasteFormats
   
9.                 .Rows(.Cells(Rows.Count, 3).End(3).Row + 1 & ":65536").Clear
   
10.             End With
    
11.             Application.Goto Sheets(i).[a1]
    
12.         End If
    
13.     Next
    
14.     Sheets("样表").Activate
    
15.     Application.CutCopyMode = False
    
16.     Application.ScreenUpdating = True
    
17. End Sub
    

复制代码

跳转到最佳答案楼层

旧书重读

选中样表内容，双击“格式刷”。再逐个单击其他表格即可。
不好意思，我不会VBA.

小雨饰品

旧书重读 发表于 2014-8-18 08:39
选中样表内容，双击“格式刷”。再逐个单击其他表格即可。
不好意思，我不会VBA.

谢谢，这也是好方法。但我想用VBA可能减少此工作量。

十五的月亮

按住Shift键选定工作组或CtrL键点选工作表刷一次就OK

小雨饰品

十五的月亮 发表于 2014-8-18 09:20
按住Shift键选定工作组或CtrL键点选工作表刷一次就OK

这个方法速度快很多，谢谢。但我希望用VBA来完成。

dsmch

1. Sub Macro1()
   
2. Sheets("样表").Cells.Copy
   
3. For i = 1 To Sheets.Count
   
4. If Sheets(i).Name <> "样表" Then
   
5.     Sheets(i).Cells.PasteSpecial Paste:=xlPasteFormats
   
6.     Application.Goto Sheets(i).[a1]
   
7. End If
   
8. Next
   
9. Application.CutCopyMode = False
   
10. End Sub

复制代码

dsmch

………………

小雨饰品

dsmch 发表于 2014-8-18 12:49
………………

谢谢！速度很快。不知能否去掉后面空白行。就是代码运行后将我原来的表格行数都等于“样表”的行数了。

dsmch

1. Sub Macro1()
   
2. Application.ScreenUpdating = False
   
3. Sheets("样表").UsedRange.Copy
   
4. For i = 1 To Sheets.Count
   
5. If Sheets(i).Name <> "样表" Then
   
6.     Sheets(i).UsedRange.PasteSpecial Paste:=xlPasteFormats
   
7.     Application.Goto Sheets(i).[a1]
   
8. End If
   
9. Next
   
10. Sheets("样表").Activate
    
11. Application.CutCopyMode = False
    
12. Application.ScreenUpdating = True
    
13. End Sub

复制代码

旧书重读

十五的月亮 发表于 2014-8-18 09:20
按住Shift键选定工作组或CtrL键点选工作表刷一次就OK

噢，这样也可以。