Excel-如何跨多個單元格區域應用過濾器

Question

我正在嘗試對AZ排序的一系列未按順序排列的單元格進行排序。 3個單元格范圍如下

B5：C31

F5：G31

J5：K31

有任何想法嗎？

例：

Answer 1

您可以使用宏：

Dim i As Integer
Dim Fg As String
Dim ee As Integer
Dim Dime(1 To 3) As Integer

Fg = ActiveSheet.Name
Sheets.Add
ActiveSheet.Name = "Tmp"
ee = 1
For i = 1 To 3
    Sheets(Fg).Select
    ActiveSheet.Range("Col" & i & "Ran").Copy
    Dime(i) = Range("Col" & i & "Ran").Rows.Count
    Sheets("Tmp").Select
    ActiveSheet.Paste
    ee = ee + Dime(i)
    ActiveSheet.Range("A" & ee).Select
    Sheets(Fg).Select
Next
Sheets("Tmp").Select
ActiveSheet.Range("A1").Select
ActiveWorkbook.Worksheets("Tmp").Sort.SortFields.Add Key:=Range("A1"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tmp").Sort
    .SetRange Range("A1:B" & ee)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

ee = 1
For i = 1 To 3
    Sheets("Tmp").Select
    ActiveSheet.Range("A" & ee & ":B" & (ee + Dime(i) - 1)).Copy
    Sheets(Fg).Select
    ActiveSheet.Range("Col" & i & "Ran").Select
    ActiveSheet.Paste
    ee = ee + Dime(i)
Next
Sheets("Tmp").Delete

將所有列（名為Col1Ran，Col2Ran，Col3Ran的范圍）復制到臨時表中->排序->重建...
您需要使代碼適應您的列...示例使用2列。