使用者24053554822654922019-10-01 11:15:03

Sub 新建工作簿（）

Application。ScreenUpdating = False

Dim gzb As Workbook

Set gzb = Workbooks。Add

ActiveSheet。Name = “1-a”

Workbooks（“A。xls”）。Sheets（“a”）。Cells。Copy ［a1］

Worksheets。Add（after：=Worksheets（Worksheets。Count））。Name = “1-b”

Workbooks（“A。xls”）。Sheets（“b”）。Cells。Copy ［a1］

gzb。SaveAs ThisWorkbook。Path & “\1-A。xls”， FileFormat：=xlExcel8

Set gzb = Nothing

ActiveWorkbook。Close

Application。ScreenUpdating = True

End Sub

這個vba程式碼寫在A工作簿的模組裡即可，指定區域你可以自己修改下程式碼，我這裡是全表複製的效果。