如何在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