Excel VBA排序不排序所有列

我的代碼正在排序列A數字正確，並且信息綁定到列B-D但不是列E-M這是數量值。所以，當我添加一個股票＃說明，供應商和零件＃都與股票＃排序，但沒有任何數量值。他們只停留在同一排。我有數據需要留在排序的股票＃直到列X。Excel VBA排序不排序所有列

Sub Sorting() 
    Dim sht As Worksheet 
    Dim LastRow As Long 
    Dim LastColumn As Long 
    Dim StartCell As Range 

    Set sht = Sheet1 
    Set StartCell = Range("A9") 

    'Refresh UsedRange 
     Worksheets("Order Summary").UsedRange 

    'Find Last Row 
    LastRow = sht.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 

    'Select Range 
    sht.Range("A9:A" & LastRow).Select 

    Range("A9:A" & LastRow).Sort _ 
     Key1:=Range("A9"), Header:=xlYes 
End Sub

來源

2017-03-02 Matt Taylor

嘗試範圍（「A9：X」和LASTROW）的.sort _ 密鑰1：=範圍（「A9」），部首：= xlYes – user3598756

我已經試過了。它給了我一個語法錯誤:( –

你沒有指定完整的範圍（列A，B，C，D），改變你的行：「Range（」A9：A「＆LastRow）.Sort _」只包括列A到範圍（「A9：D」和LastRow）.Sort _「將覆蓋A到D –

Sub Sorting() 
    Application.ScreenUpdating = False 
    ActiveSheet.Sort.SortFields.Clear 
    ActiveSheet.Sort.SortFields.Add Key:=Range("A9") 
    ActiveSheet.Sort.SetRange Range("A9:X500") 
    ActiveSheet.Sort.Apply 
    Application.ScreenUpdating = True 
End Sub

來源

2017-03-02 21:57:39

儘管您可能已經解決了此用戶的問題，但僅有代碼的答案對於未來出現此問題的用戶來說並不是很有用，請編輯您的答案以解釋您的代碼爲何解決原始問題。 –

Excel VBA排序不排序所有列

回答

相關問題