根据列值将启用宏的文件拆分为单独的文件

Question

想象一下，我已经有一个包含宏的文件，该宏将应用于数据。我想根据region列将该文件拆分为多个文件，这样一来，我必须同时保留所有拆分文件中的宏功能和原始文件。请告诉我在VBA中执行此操作的方法。

'''子SplitEachWorksheet（）昏暗的FPath作为字符串FPath = Application.ActiveWorkbook.PathApplication.ScreenUpdating = FalseApplication.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets
    ws.Copy
    Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, 
Filename:=FPath & "\" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

'''但是我不知道如何通过保留原始文件的宏功能来拆分。请告诉我该怎么做。

Answer 1

如果您想在VBA中做到这一点，建议您将代码编写到：

• 从“区域”列中查找所有值
• 对于每个区域：
  • 制作原始文件的完整副本（包括宏的副本）
  • 删除不属于该区域的所有行