怎样用VBA把表1的格式覆盖到表2且不包括内容

1、sheet1是一个班的学生成绩表已经设置好底纹填充格式——要把格式复制到sheet2。

2、在EXCEL的选项中的常用勾选“开发工具”选项——在菜单中点击开发工具——代码——Visual Basic。

3、插入——模块——输入以下代码后关闭VBA窗口：

Sub 复制格式()

Worksheets("sheet1").UsedRange.Copy

Worksheets("sheet2").UsedRange.PasteSpecial Paste:=xlPasteFormats

Application.CutCopyMode = False

End Sub

4、插入——艺术字——选择强调文字颜色6，棱台形状——输入：复制格式——形状填充为深蓝色。

5、右击“文本框——指定宏——选择：复制格式——确定——点击文本框运行宏。