选择表

'方法1
Sheet1.Select
'方法2
Sheets(1).Select
'方法3
Sheets("1月").Select

插入表

'随意插入
Sheets.Add
'before/after 指定次序，count指定数目
Sheets.Add after:=sheet3, Count:=2
'最后一个表后插入
Sheets.Add after:=Sheets(Sheets.Count)

重命名

Sheets.Name = ""

Sub 取表名()
Dim i As Integer

For i = 2 To Sheets.Count
    Range("a" & i - 1) = Sheets(i).Name
Next

End Sub

删除表

Sheet1.Delete

'忽略警告删除表
Excel.Application.DisplayAlerts = False

sheet2.Delete

拷贝表

Sheet1.Copy after:=Sheets(Sheets.Count)

Sub 表格拆分成多个文件()
Dim sht As Worksheet

For Each sht In Sheets
    sht.Copy
    ActiveWorkbook.SaveAs Filename:="d:\data\" & sht.Name & ".xlsx"
    ActiveWorkbook.Close
Next

End Sub

更新日志

2025/2/16 23:37

查看所有更新日志

• 0e103-fix:全文搜索样式于 2025/2/16
• 51ebd-docs: 初始版本于 2024/9/22

版权所有

版权归属：passwordgloo

许可证：署名-相同方式共享 4.0 国际 (CC-BY-SA-4.0)