将工作簿中的所有工作表组合在一起除外

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (1)
  • 关注 (0)
  • 查看 (33)

我有一个工作簿,有许多不同名称的工作表需要组合成一个工作表。我发现这个代码效果很好,除了我需要忽略一个名为“COMMAND”的表单(用于其他目的)。代码当前将创建一个名为“Combined”的工作表,并将所有工作表合并到它,但如果不需要每次都创建和删除组合工作表,我更喜欢它。因此,为了澄清,除了名为“COMMAND”的工作表之外,本工作簿中的所有工作表都需要组合到“组合”工作表中。

Private Sub COMBINE()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
提问于
用户回答回答于

而不是表格(1)。选择,您可以使用以下代码并将工作表名称更改为第一个工作簿上的工作表名称。

ThisWorkbook.Sheets("Sheet1").Copy

所属标签

可能回答问题的人

  • 西风

    renzha.net · 站长 (已认证)

    7 粉丝1 提问9 回答
  • 四无君

    0 粉丝0 提问3 回答
  • 旺仔小小鹿

    社区 · 运营 (已认证)

    46 粉丝0 提问2 回答
  • 拉布拉多拉不多

    1 粉丝0 提问2 回答

扫码关注云+社区

领取腾讯云代金券