不同表格格式复制

jhhkh

我想把1-9班的表格格式统一成样表的格式，用宏录制运行慢，要好长时间，用VBA有没有好方法

microyip

啊？宏不就是VBA？VBA不就是宏？两个有区别？

microyip

http://club.excelhome.net/thread-1310803-1-1.html 多表多工作簿汇总，参考变通一下

xiangbaoan

Sub test()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    Sheets("样表").Cells.Copy
    For Each sh In Worksheets
        If sh.Name <> "样表" Then
            sh.Cells.PasteSpecial -4122 ' -4122 为 xlpasteformats
        End If
    Next
    Application.ScreenUpdating = True
End Sub

cui26896

xiangbaoan 发表于 2019-11-8 19:01
Sub test()
    Dim sh As Worksheet
    Application.ScreenUpdating = False

sh.Cells.PasteSpecial -4122 ' -4122 为 xlpasteformats
这个东东很难查到的，在Microsoft Dos Office VBA 参考 下的excel下对象模型中的枚举中才能找得到
https://docs.microsoft.com/zh-cn/office/vba/api/excel.xlpastetype