复制工作表

64627064

目录中37个工作表，按目录√表格复制到新的工作簿，原表格不变。新工作簿只保留数据值。复制工作表格随机变化不是固定的工作表。

psxk3535028-1

不一定是你所要的，练手勿笑

64627064

公式可以达预期需求，在帮我更改一下。原表格是带公式，复制表格去公式保留数值。
For t = 1 To Workbooks("111.xlsm").Sheets.Count
If Workbooks("111.xlsm").Sheets(t).Name = g Then
Workbooks("111.xlsm").Worksheets(t).Copy after:=Workbooks("新工作簿.xlsx").Worksheets(s)
Windows("111.xlsm").Activate
以带文件名称可以去掉。文件名称，谁时更改。插入固定几表格复印公式

64627064

运行后。只能固定7个表格