各位大侠帮帮忙，帮我处理一下随着数据改变而数据列自动排序调整！！！

wj2368

教父01 发表于 2017-10-18 23:41
非常感谢您无私的帮助，我试着运行了一下，好像有些地方还不是很对，一个是数据指向问题，我也对指向错误 ...

。。。。。。。。。。。。。。。

wj2368

教父01 发表于 2017-10-18 23:41
非常感谢您无私的帮助，我试着运行了一下，好像有些地方还不是很对，一个是数据指向问题，我也对指向错误 ...

调整了下公式。

教父01

wj2368 发表于 2017-10-19 08:37
。。。。。。。。。。。。。。。

非常感谢老师的帮助，说有问题都已经解决了，以后再有其他不会的难题，还得来麻烦你，再次对您的帮助表示感谢！！！

教父01

wj2368 发表于 2017-10-19 08:38
调整了下公式。

还有个问题，我打算在这个表的基础上复制生成一个2018年争霸赛的表，但是显示代码有错误，我也没调整什么啊，只是把表内手工添加的数据删除后，就有部分功能无法使用了，那八个分析内容也不显示更新的数据了，我要制作同样的新表该如何操作？

wj2368

教父01 发表于 2017-10-19 11:44
还有个问题，我打算在这个表的基础上复制生成一个2018年争霸赛的表，但是显示代码有错误，我也没调整什么 ...

空数据时也运行了，数组为空时出错，现调整了下，你再试试

教父01

wj2368 发表于 2017-10-19 13:19
空数据时也运行了，数组为空时出错，现调整了下，你再试试

非常感谢您，现在问题都已经完美解决了，您实在是太强大了！！！非常感谢！！！
今天的鲜花怎么没有了？明天我再给您献花！！！

wj2368

教父01 发表于 2017-10-19 14:08
非常感谢您，现在问题都已经完美解决了，您实在是太强大了！！！非常感谢！！！
今天的鲜花怎么没有了？ ...

昨天的代码算法不太对，现作了调整

教父01

请问老师，调整后与调整前的区别是什么呢？还请不吝赐教！！！

教父01

wj2368 发表于 2017-10-20 07:58
昨天的代码算法不太对，现作了调整

请问老师，调整后与调整前的区别是什么呢？还请不吝赐教！！！
是不是后三个问题的这部分：
ReDim brr(1 To UBound(arr) * UBound(arr, 2), 1 To 2)a = 1
For i = 1 To UBound(arr, 2)
For j = 2 To UBound(arr)
If arr(j, i) <> "" Then
If arr(j, i) >= 0 Then
brr(a, 1) = arr(1, i)
n = n + 1
Else
brr(a, 1) = arr(1, i)
brr(a, 2) = n
n = 0
a = a + 1
End If
End If
Next

brr(a, 1) = arr(1, i)
brr(a, 2) = n
n = 0
a = a + 1
Next
arr1 = brr
ar = Application.Index(brr, 0, 2)
For i = 1 To UBound(brr)
If brr(i, 1) = "" Then Exit For
    n = Application.Match(Application.Max(ar), ar, 0)
    For j = 1 To 2
        arr1(i, j) = brr(n, j)
    Next j
    ar(n, 1) = ""
Next i
Frequency5 = arr1(1, 1) & arr1(1, 2) & "|" & arr1(2, 1) & arr1(2, 2) & "|" & arr1(3, 1) & arr1(3, 2)
调整为：
ReDim brr(1 To UBound(arr, 2), 1 To 2)
For i = 1 To UBound(arr, 2)
If Not d.exists(arr(1, i)) Then
d(arr(1, i)) = i
brr(d(arr(1, i)), 1) = arr(1, i)
For j = 2 To UBound(arr)
If arr(j, i) <> "" Then
If arr(j, i) >= 0 Then
n = n + 1
Else
If brr(d(arr(1, i)), 2) <= n Then brr(d(arr(1, i)), 2) = n: n = 0
End If
End If
Next
End If
If brr(d(arr(1, i)), 2) <= n Then brr(d(arr(1, i)), 2) = n: n = 0
Next
arr1 = brr
ar = Application.Index(brr, 0, 2)
For i = 1 To UBound(brr)
If brr(i, 1) = "" Then Exit For
    n = Application.Match(Application.Max(ar), ar, 0)
    For j = 1 To 2
        arr1(i, j) = brr(n, j)
    Next j
    ar(n, 1) = ""

其他的还有吗？

wj2368

教父01 发表于 2017-10-31 16:40
请问老师，调整后与调整前的区别是什么呢？还请不吝赐教！！！
是不是后三个问题的这部分：
ReDim brr( ...

调整前是连续的次数不分人的
调整后是按人的