寻找macros的升序和降序命令button的能力，维护其他相应的数据行

已经放在一起macros升序和降序sorting（张贴在下面），但我感兴趣的是一个macros可以升序降序的数字顺序，但保持其他数据行对应的升序和降序数据移到我的Excel表格上。 任何人都知道这种情况下的macros？

Private Sub CommandButton1_Click() If CommandButton1.Caption = "Click to Sort Ascending" Then 'Sort ascending... ActiveWorkbook.Worksheets("daily data drop").Sort.SortFields.Clear ActiveWorkbook.Worksheets("daily data drop").Sort.SortFields.Add Key:=Range("A2:A36"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("daily data drop").Sort .SetRange Range("A2:A36") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With CommandButton1.Caption = "Click to Sort Decending" Else 'sort decending ActiveWorkbook.Worksheets("daily data drop").Sort.SortFields.Clear ActiveWorkbook.Worksheets("daily data drop").Sort.SortFields.Add Key:=Range("A2:A36") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("daily data drop").Sort .SetRange Range("A1:A36") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With CommandButton1.Caption = "Click to Sort Ascending" End If End Sub 

Answer 1

试着改变这一行

 .SetRange Range("A1:A36") 

对此

 .SetRange Range("A1:B36") 

或者把“B”改成你上过的任何列的字母