sub 工作表选择() sheet3.select' 如果sheet3为隐藏时,则会报错,提示无法选择到该表 sheet3.activate ' 如果sheet3为隐藏时,不会报错,理论已激活选择,但是因为隐藏并未选择显示到改页 endsub
1 2 3 4
sub 快速选择所有工作表() worksheets.select' 选择当前工作簿中所有工作表,如果有隐藏表时会报错 sheets.select' 选择全部sheet,不管工作表还是图表 endsub
1 2 3
sub 自定义选择() worksheets(array(1,2,3)).select' 只选择自己选择的1,2,3 endsub
8.关闭警告提示
application.displayalerts = False 关系警告提示
application.displayalerts = true 开启警告提示
9.实战拆分工作簿到其它表
需求如下,把工作簿1中的所有工作表,拆分到其他新建的工作簿中,实现代码:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
Sub 拆分到工作簿() Dim wk As Workbook, ss$, k% Application.DisplayAlerts = False ForEach sht In Workbooks(1).Sheets Set wk = Workbooks.Add k = k + 1 Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1) ss = ThisWorkbook.Path & "\" & sht.Name & "xlsx" wk.SaveAs ss wk.Close Next Application.DisplayAlerts = True MsgBox "拆分工作簿完成" EndSub