请教如何设置一键宏排序？

crinkin · 发表于 2020-1-23 11:46

如图所示，需要按照排名从1到9，该如何设置一键排序？不会使用宏

microyip · 发表于 2020-1-23 12:16

http://club.excelhome.net/thread-1443182-1-1.html 二维（以下）数组排序的自定义函数，参考变通一下

蓝桥玄霜 · 发表于 2020-1-23 13:13

输入需要排序的列数排序的代码：

crinkin · 发表于 2020-1-24 16:49

蓝桥玄霜发表于 2020-1-23 13:13
输入需要排序的列数排序的代码：

复制不到

crinkin · 发表于 2020-1-27 12:11

求助求助

crinkin · 发表于 2020-1-29 16:16

求救求救

answer6141 · 发表于 2020-1-29 16:52

本帖最后由 answer6141 于 2020-1-29 16:57 编辑

Option Explicit

Sub myRnd()
Dim x, y, i As Long
Dim arr(1 To 6)
Dim brr(1 To 6)
For i = 1 To UBound(arr)
      Randomize
      x = Int((36 - 1 + 1) * Rnd + 1)
      y = Int((9 - 1 + 1) * Rnd + 1)
      Debug.Print x & y
      arr(i) = Cells(x, y).Value
      brr(i) = Replace(Cells(x, y).Address, "$", "")
Next
Range("p3") = Join(brr, ",") & "," & Join(arr, ",")
End Sub

crinkin · 发表于 2020-1-29 17:12

answer6141 发表于 2020-1-29 16:52
Option Explicit

Sub myRnd()

搞不定啊大哥

answer6141 · 发表于 2020-1-29 19:19

crinkin 发表于 2020-1-29 17:12
搞不定啊大哥

搞错文件了，不好意思

answer6141 · 发表于 2020-1-29 20:17

你这不是排序的问题，公式就不对
=SUMIFS(Sheet5!B:B,Sheet5!A:A,月度达成!C7)
=SUMIFS(Sheet5!H:H,Sheet5!G:G,月度达成!C12)
=SUMIFS(Sheet5!B:B,Sheet5!A:A,C4)
=SUMIFS(Sheet5!H:H,Sheet5!G:G,C4)
这两个公式改了就行了，然后选择要排序的区域，排下序就行了
还有你这个公式=SUM((G4<=$G$4:$G$12)/COUNTIF($G$4:$G$12,$G$4:$G$12))是什么意思我看不懂，请教下

		自动登录	找回密码
密码			免费注册

[求助] 请教如何设置一键宏排序？

part1

最新热点 /1