vba - 重新排序excel中的隐藏选项卡

Question

在工作中，我们开发了一个使用 Excel 和 VBA 的工具。这个工具有隐藏的工作表，只有在上一步完成后才会打开。我从上一个编码器中遇到的一个问题是，最后一步，有一个额外的按钮，我们称之为 A，可以单击。根据之前编码人员创建的工作表顺序，这张工作表在 10 个中排在第二位，当单击 A 时，它会自动转到第二个位置。

有什么办法可以修改它到最右边的选项卡？

我遇到的问题是当我到达最后一步时，我可以手动将选项卡移动到右侧，但这只是在我完成分析之后，并且不能转到开头，所以它不允许我来拯救。

Answer 1

这会将您的隐藏工作表移动到所有可见工作表的末尾：

Sub test()

    With Sheets("Sheet1")
        .Visible = True
        Sheets("Sheet1").Move After:=Sheets(Sheets.Count)
        .Visible = False
    End With

End Sub

这会将您的隐藏工作表移动到所有隐藏和可见工作表的末尾：

Sub moveHiddenSheet()

Dim ws, x, lastSheet

x = 0
For ws = Worksheets.Count To 0 Step -1
    x = x + 1
    If Sheets(Worksheets.Count - x).Visible = False Then
        Sheets(ws).Visible = xlSheetVisible
        lastSheet = Sheets(ws).Name
        Exit For
    End If
Next ws

With Sheets("Sheet1")
    .Visible = True
    Sheets("Sheet1").Move After:=Sheets(Worksheets.Count) 
    .Visible = False
End With

Sheets(lastSheet).Visible = False

End Sub