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排序不排序所有列

回答

相关问题