嘗試根據單元格值按降序對工作表進行排序

Question

我正在嘗試根據位於每個工作表中的單元格值對工作表進行排序。 我遇到的主要問題是將排序應用於僅選定的工作表。 以下是我到目前為止所擁有的。 VBA 的新手

Sub SortWksByCell()
Dim i As Integer
Dim j As Integer

  For i = 1 To ActiveWindow.SelectedSheets.Count
    For j = i + 1 To ActiveWindow.SelectedSheets.Count
        If UCase(Worksheets(i).Range("q1")) <= _
          UCase(Worksheets(j).Range("q1")) Then
            Worksheets(j).Move Before:=Worksheets(i)
        End If
    Next
  Next
End Sub

Answer 1

每當您Move工作表時，您都會丟失工作表的選擇，因此您必須在開始排序過程之前修復它

Option Explicit

 Sub SortWksByCell()
    Dim i As Integer
    Dim j As Integer
    Dim wss As Sheets

    Set wss = ActiveWindow.SelectedSheets
    For i = 1 To wss.Count
        For j = i + 1 To wss.Count
            If UCase(wss(i).Range("q1")) <= _
              UCase(wss(j).Range("q1")) Then
                wss(j).Move Before:=wss(i)
            End If
        Next
    Next
End Sub