vba排序 vba对指定区域降序排列

不用vba代码:在b1输入 =“”&a1 回车后再选中b1,鼠标移到其右下角,双击那个“+” 选中b列,右键,复制,右键,选择性粘贴,数值 这样a列的数字和文本都转换为b列的文本了.选择a到b列,以b列排升序,完成.

Sub 排序() Dim XXArr, AllArr, PXArr(), iStr, LikeStr iStr = "多,昌,招,时,西" LikeStr = "[" & Replace(iStr, ",", "") & "]" AllArr = Range("A2:D" & [A.

貌似不用VBA,直接用函数就可完成.试试下面的公式:在首个单元格中输入=IF(ROW(A1)>100,＂＂,9999+COLUMN(A1)*100+ROW(A1)) 右拖下拉填充.

筛选后排序就不错,方便

以下是某列进行排序的示例代码,从参考:123456789101112131415161718192021222324252627282930313233 SubSortData()'添加示例数据 Range("A1")..

Sub sub1() Sheets(1).Activate Range(＂A1:J1＂).Sort key1:=Cells(1, 1), Orientation:=xlLeftToRight End Sub 根据你的区域,你这是按行来排列,加多一句就好

Sub s() arr = [b11:k14] t = ＂(＂ & arr(2, arr(3, 1) + 1) & ＂)＂ For i = 1 To 10 t = t & arr(3, i) If arr(4, i) = ＂+＂ Then t = t & ＂+＂ & IIf(arr(2, arr(3, i + 1) + 1) = 0, ＂空＂, ＂(＂ & arr(2, arr(3, i + 1) + 1) & ＂)＂) Next [b10] = t End Sub

不用VBA代码:在B1输入 =“”&A1回车后再选中B1,鼠标移到其右下角,双击那个“+”选中B列,右键,复制,右键,选择性粘贴,数值这样A列的数字和文本都转换为B列的文本了.选择A到B列,以B列排升序,完成.

方法1:把数据读入二维数组,冒泡法对第一行排序,排好后重新写入表里 方法2:设置一个临时列,还用冒泡法以第一行排序,交换时使用临时列 日期比较直接用时间型读入比较就行了

不需要用到VBA就可以完成.将RANK()函数列放在最左边,然后用VLOOKUP()函数根据行号来排序.