excel排序其他列不跟着动

Sub paixu()
令经征赵因和子充执灯Worksheets("Sheet1").Range("A1:B1000").Sort Key1:=Range("A1"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMe讲仅朝们入超绿零杆需蛋thod:=xlPinYin, DataOpti都巴减曾油做on1:=xlSortNormal
Dim i As Integer
Dim n As Integer
n = 0
For i = 2 To 50 Step 1
n = n + 1
If Cells(i, 1) = "-" Then
n = n - 1
GoTo 1
End If
If n <= 10 Then
留民受脸银Sheets("sheet1").Cells(i, 1).Copy Sheets("sheet2").Cells(i + 13, 1)
End If
1:
Next
End Sub

建议1000018一行上方插入一行X，全选X行及以下所有行，据筛选或排序，排序后隐藏X行即可

excel排序时其他列跟着排序，需要在排序时选择“扩展选区”。
方法步骤如下：
1、打开需要操作的EXCEL表格，选中需要排序的单元格，在“开始”选项卡找到“编辑”，点击“排序和筛选”。

2、选择需要的排血方式，如降序排序。

3、在弹出的排序提醒对话框中选择“扩展选定区域”，然后点击下面的“确定”按钮即可。

4、返回EXCEL表格，可发现除了排序的列外，其他列也随着一起参与排序。