如何在VBA中進行排序？

Question

我有一個表中的標題和從A到D的列中的數據隨着行號的變化（行數超過66800）。我想從Z到A的數據按列C排列。

在互聯網上有很多不同的VBA解決方案，但是沒有一個能夠爲我正確工作。

我的代碼給我一個錯誤：

Sub SortDescending() 
Dim lRow As Long 
Dim lCol As Long 
lRow = Sheets("atm_hh").Cells(Rows.Count, 1).End(xlUp).Row 
lCol = Sheets("atm_hh").Cells(1, Columns.Count).End(xlToLeft).Column 

    With Sheets("atm_hh") 
    .Select 
    .Range("A2:" & Cells(lRow, lCol).Address).Sort Key1:=Range("C2"), _ 
               Order1:=xlDescending, _ 
               Header:=xlGuess, _ 
               OrderCustom:=1, _ 
               MatchCase:=False, _ 
               Orientation:=xlTopToBottom 
    End With 
End Sub 

Answer 1

嘗試

Sub SortDescending() 

    Dim sh As Worksheet 
    Set sh = Sheets("atm_hh") 

    Dim lRow As Long 
    Dim lCol As Long 
    lRow = sh.Cells(Rows.Count, 1).End(xlUp).Row 
    lCol = sh.Cells(1, Columns.Count).End(xlToLeft).Column 

    Dim cell As Range 
    For Each cell In sh.Range("C2:C" & lRow) 
     cell = WorksheetFunction.Substitute(cell, ",", ".") 
    Next 

    Columns("C:C").NumberFormat = "0.0" 

    sh.Cells.AutoFilter 
    sh.AutoFilter.Sort.SortFields.Clear 
    sh.AutoFilter.Sort.SortFields.Add Key:=Range("C1:C" & lRow), _ 
     SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal 
    With sh.AutoFilter.Sort 
     .Header = xlYes 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 
    End With 
    sh.AutoFilterMode = False 
End Sub