EXCEL内有几百个工资表，不同单位。以前录制的宏没法用了，因为表名顺序变了，重新比对不是不行，但是听说以后要经常变动顺序，所以想死的心都有了。
求一个能不按照顺序查找到特定的几十个表名，然后移动到新的EXCEL的宏。
先在此感谢了。

新插入一个工作表并改名为 MOVE
在该表的A1开始依次向下输入要移动的sheet名称
然后运行下面的宏
Sub test()
arr = Sheets("move").Range("A1").CurrentRegion.Value
Set nwb = Workbooks.Add
With ThisWorkbook
For r = UBound(arr) To 1 Step -1
.Sheets(arr(r, 1)).Copy nwb.Sheets(1)
Next
End With
End Sub

问题解决了嘛？