在多張紙中按降序對數據進行排序

Question

Sub Descending_Click()
Dim j As Integer, k As Integer
j = Worksheets.Count
For k = 1 To j
    Selection.Sort key1:=Range("L2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Next k
End Sub

我在網上獲得了上述代碼，並根據需要進行了更改。 它的工作正常，但僅在當前工作表上工作，我希望它在多張工作表上工作。 同樣在運行之后，所有數據都將被選中。 運行后不應選擇數據。 需要專家幫助。

Answer 1

您實際上必須遍歷每個工作表並對該表進行操作。 在編寫代碼時，沒有規范可以遍歷工作表或在任何特定工作表上工作。 Selection語句僅對當時處於活動狀態的選擇起作用。

Sub Descending_Click()
Dim ws as Worksheet
For Each ws in Worksheets
    ws.UsedRange.Sort key1:=Range("L2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Next ws
End Sub

'Note: you made need to specify the exact range on the worksheet, depending on how your data is set up. In that case, replace UsedRange with Range("A1:K100") or whatever your range actually is.