我有一个包含多个选项卡的工作表,我可以获得将每个选项卡分成多个文件的 VBA 代码吗
我想将 A1 和 A1 SCREEN 作为一个文件,然后将 B1 和 B1 SCREEN 放在另一个文件上,并且所有包含相同文本的选项卡也是如此。
标签名称:1.A1 2.A1 屏幕 3.B1 4.B1 屏幕 5.C1 6.C1 屏幕
请帮忙!
答案1
欢迎来到 SuperUser!如果它很简单,那么就像这样:
Sub extactTabs()
Dim ws As Worksheet
Dim cwb As Workbook
Dim nwb As Workbook
Dim i As Long
Set cwb = ThisWorkbook
For i = 1 To cwb.Worksheets.Count Step 2
cwb.Worksheets(i).Copy
Set nwb = ActiveWorkbook
On Error Resume Next
cwb.Worksheets(i + 1).Copy after:=nwb.Worksheets(1)
On Error GoTo 0
Next i
End Sub
这。复制不带参数的方法会将指定的工作表复制到新的工作簿。这个新工作簿将变为活动状态,并将其存储在单独的变量中。将下一个工作表复制到记忆工作簿中,该工作表位于其唯一工作表之后。
当然,宏会认为您的工作簿中的工作表就像您的屏幕截图中那样排列,一个接一个。宏不会检查标签的名称,它只会将每两个工作表复制到单独的工作簿中。您只需查看结果并以所需的名称将工作簿保存到磁盘即可。