第1个回答 2012-05-06
如不插入空列,或者空行,只能按照一列排序,分别插入9个列,一列一列排序,是不是这个问题
第2个回答 2012-05-06
Sub kk()
Dim i, j As Integer
For i = 1 To 10
For j = 1 To 10
Cells(i, j) = 101 - 10 * (i - 1) - j
Next
Next
End Sub本回答被网友采纳
第3个回答 2012-05-06
=large($a$1:$j$10,row(a1))
向下填充100行