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

可以参考如下帖子：

　　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

　　

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/gongyanxu/p/12330287.html