Vba 在excel中对隐藏选项卡重新排序

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

有没有办法将其修改到最右边的选项卡

---

我遇到的问题是，当我进入最后一步时，我可以手动将选项卡移动到右侧，但这只是在我完成分析之后，并且无法转到开头，因此它不允许我保存

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

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

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

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

---

这对我不起作用。我把它放在按钮被点击的地方，但它没有什么不同。让我确定我明白你想做什么。。。是否尝试单击按钮并将特定工作表移动到最右侧的选项卡位置？您要移动的工作表是隐藏的还是可见的？啊。。我现在明白你的意思了，给我几分钟时间，我会更新我的答案…没关系，谢谢你的帮助！我刚刚删除了最后一行，.visible=false，因为我仍然需要它出现