求助大神！根据指定单元格内容进行不同排序，谢谢！

cndxm

根据每个工作表“J2”单元格内容，对数据区域进行不同排序，整个工作簿一次运行，谢谢大神！

liulang0808

http://club.excelhome.net/thread-1385473-1-1.html
帖子第七个，随机排序可以参考

cndxm

liulang0808 发表于 2018-9-4 15:23
http://club.excelhome.net/thread-1385473-1-1.html
帖子第七个，随机排序可以参考

我是菜鸟不会写，用一种方式的代码我找到了，但判断后用两种方式就找不到了

liulang0808

cndxm 发表于 2018-9-4 16:40
我是菜鸟不会写，用一种方式的代码我找到了，但判断后用两种方式就找不到了

楼主的两种方式是什么意思啊？

cndxm

liulang0808 发表于 2018-9-4 16:52
楼主的两种方式是什么意思啊？

一种是所有数据列同时排序，一种是所有数据列分别排序，根据一个单元格内容判断用哪种方式，附件里有具体的，可以看一下，谢谢！

liulang0808

cndxm 发表于 2018-9-4 16:56
一种是所有数据列同时排序，一种是所有数据列分别排序，根据一个单元格内容判断用哪种方式，附件里有具体 ...

楼主3楼回复是找到了一种方式，是哪种方式的？

一把小刀闯天下

'试一下，估计差不多。如果数据量大换个快排

Option Explicit

Sub test()
  Dim arr, sht, row, col, i, j, k, t, n
  For Each sht In Sheets
    With Sheets(sht.Name)
      row = .Cells(Rows.Count, "k").End(xlUp).row
      col = .Cells(2, Columns.Count).End(xlToLeft).Column
      arr = Range(.[k2], .Cells(row, col))
      If .[j2].Value = "one" Then
        For j = 1 To UBound(arr, 2)
          For i = 1 To UBound(arr, 1) - 1
            For k = i + 1 To UBound(arr, 1)
              If arr(i, j) > arr(k, j) Then
                t = arr(i, j): arr(i, j) = arr(k, j): arr(k, j) = t
              End If
        Next k, i, j
      Else
        For i = 1 To UBound(arr, 1) - 1
          For j = i + 1 To UBound(arr, 1)
            If arr(i, 1) > arr(j, 1) Then
              t = arr(i, 1): arr(i, 1) = arr(j, 1): arr(j, 1) = t
            End If
        Next j, i
        For j = 2 To UBound(arr, 2)
          Randomize
          For i = 1 To UBound(arr, 1)
            n = Int(Rnd * UBound(arr, 1)) + 1
            t = arr(i, j): arr(i, j) = arr(n, j): arr(n, j) = t
        Next i, j
      End If
      .[k2].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    End With
  Next
End Sub

cndxm

一把小刀闯天下 发表于 2018-9-4 18:58
'试一下，估计差不多。如果数据量大换个快排

Option Explicit

帮忙看一下，还有点问题，one的工作表不排序，all的工作表从L列开始排序