vba还有高手吗 我要的是每行的数字大小的顺序号 不用排序答:Sub zhtx5000n()Dim r As Integer, s(1 To 3),t,min,max,midl,i,j r = Range("A1").End(xlDown).Row For i = 1 To r s(1) = Cells(i, 1).Value: s(2) = Cells(i, 2).Value: s(3) = Cells(i, 3).Value t = s(1): min = 1: max = 1 For j = 2 To ...