我想一次性选择（或复制）工作簿中的多张表到另一工作簿

分类: IT文章 • 2025-02-05 16:16:25

可以参考如下帖子：

　　http://club.excelhome.net/thread-917959-1-1.html

1 nm = Array("Sheet1", "Sheet2", "Sheet3")
2 For i = 0 To UBound(nm)
3     Sheets(nm(i)).Copy after:=Workbooks(newwjm).Sheets(Sheets.Count)
4 Next