Run Time Error - 438 in excel macro; trying to sort numbers in ascending order

问题

My excel macro is giving a

runtime error 438

It's working fine on my laptop, but when I mail the Excel to a person with Excel 2013, it's giving this error.

This is my code where there is an error. This will be used to sort the numbers to ascending order:

Sub SORT_X()
'
' SORT_X Macro
'

'
    Range("A8:A712").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("E8"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:= _
        True
    Range("H8").Select
    Application.CutCopyMode = False
    Range("B8:B712").Select
    Selection.Copy
    ActiveWindow.ScrollRow = 704
    ActiveWindow.ScrollRow = 697
    ActiveWindow.ScrollRow = 545
    ActiveWindow.ScrollRow = 342
    ActiveWindow.ScrollRow = 165
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("H8").Select
    ActiveSheet.Paste
    Range("G8").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.CLEAR   
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("G8"), _    
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal   'error

回答1:

Change this part:

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2

to this:

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add

回答2:

The _ is an operator for splitting code to the next line. Thus remove the empty space after:

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("G8"), _

The code should be:

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("G8"), _   
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

来源：https://stackoverflow.com/questions/51706839/run-time-error-438-in-excel-macro-trying-to-sort-numbers-in-ascending-order

标签

vba

excel

runtime-error