Excel VBA WorkSheet.Excel 2013 之后的复制

Question

我想复制一个工作表并将其直接放在另一个工作表之后。但是当涉及到隐藏的工作表时，我遇到了麻烦。

我使用 Excel 2013 打开了一个新工作簿。 在“Sheet1”之后添加一个工作表。将其重命名为“HiddenSheet2” 在“HiddenSheet2”之后添加一个工作表。重命名新工作表“Sheet3” 所以我有“Sheet1” - “HiddenSheet1” - “Sheet3” 然后隐藏“HiddenSheet1”

接下来运行这个 VBA 代码：

Sub test()
Dim ws1 AS Worksheet
Set wst = Sheets("Sheet1")
wst.Copy After:=Sheets(wst.Index)
End Sub

插入的工作表放置在“HiddenSheet2”之后，而不是“Sheet1”之后。 我发现复制的工作表成为活动工作表。

Get Handle on last worksheet copied by Worksheet.Copy

VBA Copy Sheet to End of Workbook (with Hidden Worksheets)

但我的问题是我需要将工作表保持在特定顺序。

谢谢

编辑：

Sub test()
Dim ws1 AS Worksheet
Set wst = Sheets("Sheet1")
wst.Copy After:=Sheets(wst.Index)
ThisWorkbook.ActiveSheet.Move After:=Sheets(wst.Index)
End Sub

这也不会在“Sheet1”之后直接获得新工作表。

Answer 1

现有代码可以添加

Sub test()
Dim ws1 AS Worksheet
Set wst = Sheets("Sheet1")
wst.Copy After:=Sheets(wst.Index)
ThisWorkbook.ActiveSheet.Move After:=Sheets(wst.Index)

If (ActiveSheet.Index - wst.Index - 1) <> 0 Then
        Sheets(wst.Index + 1).Visible = True
        ActiveSheet.Move After:=wst
        Sheets(wst.Index + 2).Visible = False
    End If

End Sub

Answer 2

索引属性是零基，除非在别处指定。 Sheets 属性是一个的基础。您需要：

1. 索引加 1，不是首选。
2. 最好引用 .name 属性。
3. 引用您拥有的工作表变量，即Wst.copy after:=wst, best.
4. 或者将隐藏的工作表移到新工作表之后。