除了第一个表其他表全部移动到新建的工作簿

tonghau

点击控件“移动”，除第一个表“首页”外，其他表移动到新建工作簿


请教各位大佬这个要怎么弄？

wengjl

移动＝复制－粘贴－删除的综合；就是把“首页”外的每个复制粘贴到另簿后，再删除，就完事了！

蓝桥玄霜

把原工作簿另存为新工作簿，删除“首页”表即可。

LIUZHU

我觉得这个问题是不是复制工作表好些，原工作簿的工作表移动到新的工作簿后，原工作簿就都没有了，这点请考虑清楚。

tanglf188

一式二份，一份只有首页，一份除非首页

tonghau

LIUZHU 发表于 2024-6-4 09:49
我觉得这个问题是不是复制工作表好些，原工作簿的工作表移动到新的工作簿后，原工作簿就都没有了，这点请考 ...

就是要原工作簿没有的

LIUZHU

tonghau 发表于 2024-6-4 10:01
就是要原工作簿没有的

用工作表的move方法可以把

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.4
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set ws = ThisWorkbook
   
5.     p = ws.Path & ""
   
6.     ws.Sheets.Copy
   
7.     On Error Resume Next
   
8.     Set wb = ActiveWorkbook
   
9.     wb.Sheets("首页").Delete
   
10.     wb.SaveAs p & "新工作簿"
    
11.     wb.Close
    
12.     For Each sht In Sheets
    
13.         If sht.Name <> "首页" Then sht.Delete
    
14.     Next
    
15.     Application.ScreenUpdating = True
    
16.     Application.DisplayAlerts = True
    
17.     MsgBox "OK！"
    
18. End Sub
    

复制代码

tonghau

LIUZHU 发表于 2024-6-4 10:02
用工作表的move方法可以把

就是把原工作簿的2-N个工作表移动到新建的工作簿，原工作簿的第一个表还保留