程式碼供您參考，歡迎指正。可以嘗試錄製後再修改成自己要的比較方便(因為小弟也不熟)。基本上依您所需，但無法得知您有多少區塊(例：A1~A10,A11~A20)，所以需要重複操作到您的區塊結束。
提醒：
1.程式碼貼上即可使用，執行時套用到當前工作的工作表。
2.巨集執行完後無法回復上一步驟，請特別注意。建議先存檔再執行相關巨集。

<pre class="c" name="code">
Option Explicit
Option Base 1

Sub Macro_test()
On Error Resume Next
Dim i, column_num, row_range_start, row_range_end, sort_type_input_num As Integer

column_num = CInt(InputBox("請輸入欄總數(即A到D欄共4欄,輸入4)", , 4))
row_range_start = CInt(InputBox("請輸入列起始值(預設A1即輸入1)" & vbCrLf & vbCrLf & "(即A1或A11或B1...等)", , 1))
row_range_end = CInt(InputBox("請輸入列終止值(預設A10即輸入10)" & vbCrLf & vbCrLf & "(即A10或A20或B10...等)", , 10))
sort_type_input_num = CInt(InputBox("請輸排序方式(預設遞增)" & vbCrLf & vbCrLf & "(1:遞增 , 2:遞減)", , 1))   '1:xlAscending, 2:xlDescending


    Cells.Select                   '整個工作表選取
    Selection.ColumnWidth = 10     '固定欄位寬度
    Selection.RowHeight = 15      '固定行列高度
    With Selection
        .ShrinkToFit = True        '字型大小自動縮排(儲存格→對齊方式→縮小字型適合欄寬,請確認是否為妳要的功能)
    End With
    

    Select Case sort_type_input_num
    Case 1  '遞增
        For i = 1 To column_num
            ActiveSheet.Sort.SortFields.Clear
            ActiveSheet.Sort.SortFields.Add _
                Key:=Range(Cells(row_range_start, i), Cells(row_range_end, i)) _
                , SortOn:=xlSortOnValues _
                , Order:=xlAscending _
                , DataOption:=xlSortNormal
            
            With ActiveSheet.Sort
                .SetRange Range(Cells(row_range_start, i), Cells(row_range_end, i))
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        Next
        
    Case 2  '遞減
        For i = 1 To column_num
            ActiveSheet.Sort.SortFields.Clear
            ActiveSheet.Sort.SortFields.Add _
                Key:=Range(Cells(row_range_start, i), Cells(row_range_end, i)) _
                , SortOn:=xlSortOnValues _
                , Order:=xlDescending _
                , DataOption:=xlSortNormal
            
            With ActiveSheet.Sort
                .SetRange Range(Cells(row_range_start, i), Cells(row_range_end, i))
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        Next
    End Select
   
Error:
MsgBox "輸入值錯誤或程式有問題，請自行修改"

End Sub