☰

我有一个包含多个选项卡的工作表，我想将包含相同文本的每个选项卡分成单独的工作表

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba macros macbook-pro
我有一个包含多个选项卡的工作表，我想将包含相同文本的每个选项卡分成单独的工作表

我有一个包含多个选项卡的工作表，我可以获得将每个选项卡分成多个文件的 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

这。复制不带参数的方法会将指定的工作表复制到新的工作簿。这个新工作簿将变为活动状态，并将其存储在单独的变量中。将下一个工作表复制到记忆工作簿中，该工作表位于其唯一工作表之后。

当然，宏会认为您的工作簿中的工作表就像您的屏幕截图中那样排列，一个接一个。宏不会检查标签的名称，它只会将每两个工作表复制到单独的工作簿中。您只需查看结果并以所需的名称将工作簿保存到磁盘即可。

相关内容