Question

excel 关于用VBA进行排序

我用VBA写了一个如下的过程是对一个区域进行排序,为什么没反应?
Sub sub1()
Sheets(1).Activate
Range("A1:J1").Sort key1:=Cells(1, 1)
End Sub

Answer 1

代码中排序区域Range("A1:J1")只有一行，怎么能排序？建议修改排序区域，参考代码：
Sub sub1()
Sheets(1).Activate
Range("A2:J10").Sort key1:=Cells(1, 1)
End Sub

Answer 2

Sub sub1()

Sheets(1).Activate
Range("A1:J1").Sort key1:=Cells(1, 1), Orientation:=xlLeftToRight
End Sub

 

根据你的区域，你这是按行来排列，加多一句就好