VBA使用Sort方法对数据进行排序

mumugui520090

楼主  怎么对列进行排序

antique_star

楼主  怎么对列进行排序

如果想实现对列排序，
强烈建议你去研究一下VBA数组排序的三种方法。
Sort目前据我所知，只能是行排序。

只要弄懂了数组的排序，行列随便你排。
不要怕，用心，细心，沉下心，你一定能学会的。
学会了数组，那么将表格的数据取到数组，
排完再写入表格。

当年我可是花了心思去学会什么冒泡排序法的。
没有捷径，为了自己能进步。
去搜一下相关的排序方法吧，很多。
据我所知，数组有三种方法排序。

去搜吧，祝你好运。

一把小刀闯天下

dengtianen 发表于 2018-11-17 15:06
可否按先奇后偶方式？十位与个数相加后按从小到大排序？

Option Explicit

Sub test()
  Dim arr, i, j, k, t, a, b, brr
  arr = [a2:g5].Value '普通行升序
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2) - 1
      For k = j + 1 To UBound(arr, 2)
        If arr(i, j) > arr(i, k) Then
          t = arr(i, j): arr(i, j) = arr(i, k): arr(i, k) = t
        End If
  Next k, j, i
  [i2].Resize(UBound(arr, 1), UBound(arr, 2)) = arr

  arr = [a2:g5].Value '数组的奇偶列按行升序
  brr = arr
  b = UBound(brr, 2) + 1
  For j = 1 To UBound(arr, 2) Step 2
    a = a + 1: b = b - 1
    For i = 1 To UBound(arr, 1)
      brr(i, a) = arr(i, j)
      If UBound(arr, 2) Mod 2 = 1 Then
        If j + 1 < UBound(arr, 2) Then brr(i, b) = arr(i, j + 1) Else b = b - 1
      Else
        brr(i, b) = arr(i, j + 1)
      End If
  Next i, j
  For i = 1 To UBound(brr, 1)
    For j = 1 To a - 1
      For k = j + 1 To a
        If brr(i, j) > brr(i, k) Then
          t = brr(i, j): brr(i, j) = brr(i, k): brr(i, k) = t
        End If
      Next k, j
    For j = a + 1 To UBound(brr, 2) - 1
      For k = j + 1 To UBound(brr, 2)
        If brr(i, j) > brr(i, k) Then
          t = brr(i, j): brr(i, j) = brr(i, k): brr(i, k) = t
        End If
  Next k, j, i
  [q2].Resize(UBound(brr, 1), UBound(brr, 2)) = brr

  arr = [a2:g5].Value '位数相加行排序
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2) - 1
      For k = 1 To UBound(arr, 2) - j
        If Len(arr(i, k)) = 2 Then
          a = Val(Left(arr(i, k), 1)) + Val(Right(arr(i, k), 1))
        Else
          a = arr(i, k)
        End If
        If Len(arr(i, k + 1)) = 2 Then
          b = Val(Left(arr(i, k + 1), 1)) + Val(Right(arr(i, k + 1), 1))
        Else
          b = arr(i, k + 1)
        End If
        If a > b Then
          t = arr(i, k): arr(i, k) = arr(i, k + 1): arr(i, k + 1) = t
        End If
  Next k, j, i
  [y2].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

一把小刀闯天下

dengtianen 发表于 2018-11-19 21:27
上传附件，请大侠修正，谢谢

15楼代码已作修改

第二个问题各人理解会不一样而且代码也有点问题，已按示例结果作修改

第三个问题改为冒泡排序，原直接排序为非稳定排序，，，

yssj1231

学习了，真的受益非浅，谢谢！！