如何用vba将不同sheet中的选定内容建立个新的excel
发布网友
发布时间：2022-04-26 09:31
共3个回答
热心网友
时间：2022-06-26 20:12
Sub 拆分表格()
Dim path$, name$
Dim sh As Worksheet
path = ThisWorkbook.path & "\"
For Each sh In Sheets
name = sh.name
Set wb = Workbooks.Add
sh.[b1000:b3047].Copy
wb.Activate
ActiveSheet.Paste
wb.SaveAs path & name & ".xls"
wb.Close True
Next
Set wb = Nothing
End Sub
热心网友
时间：2022-06-26 20:13
基本思路：
1、复制选区到新表；
2、保存新表。追问忘了说了 要用宏处理 表格比较多
热心网友
时间：2022-06-26 20:13
我可以解决，但要测试文件和费用
