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

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

3、插入——模块——输入以下代码后关闭VB钽吟篑瑜A窗口：Sub 复制格式()Worksheets("sheet1").Us髫潋啜缅edRange.CopyWorksheets("sheet2").UsedRange.PasteSpecial Paste:=xlPasteFormatsApplication.CutCopyMode = FalseEnd Sub

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