VBA makro为mac上的excel工作簿中的每个工作表创建单独的文件-拆分簿

VBA makro是一种用于在Microsoft Excel中自动化任务的编程语言。它可以帮助用户通过编写宏来执行各种操作，从而提高工作效率。

针对在Mac上的Excel工作簿中的每个工作表创建单独的文件-拆分簿的需求，可以使用以下VBA makro代码来实现：

Sub SplitWorkbook()
    Dim ws As Worksheet
    Dim newWorkbook As Workbook
    Dim savePath As String
    
    ' 设置保存路径
    savePath = "/Users/your_username/Documents/"
    
    ' 循环遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 创建新的工作簿
        Set newWorkbook = Workbooks.Add
        
        ' 将当前工作表复制到新的工作簿
        ws.Copy Before:=newWorkbook.Sheets(1)
        
        ' 删除新工作簿中的其他工作表
        Application.DisplayAlerts = False
        Do While newWorkbook.Sheets.Count > 1
            newWorkbook.Sheets(2).Delete
        Loop
        Application.DisplayAlerts = True
        
        ' 保存新的工作簿
        newWorkbook.SaveAs savePath & ws.Name & ".xlsx"
        
        ' 关闭新的工作簿
        newWorkbook.Close SaveChanges:=False
    Next ws
End Sub

上述代码会将当前工作簿中的每个工作表复制到一个新的工作簿中，并将新的工作簿保存为单独的文件，文件名为工作表的名称。

这个功能可以在以下场景中使用：