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

教父01

各位大侠帮帮忙，帮我处理一下随着数据改变而数据列自动排序调整！！！
本人尝试了很多办法，总是不得要领，表内数据变化后，所在列根据排序自动调整位置，始终按照排名1.2.3.....顺序排列！！！现在就是自动调整无法实现，还请各位大侠多多帮助！！！

wj2368

可以啊，代码也没有错

wj2368

。。。。。。。。。。

教父01

wj2368 发表于 2017-10-10 08:17
。。。。。。。。。。

我想解决右侧那八个问题，红色说明部分！
主要是那几个排名！

chxw68

1. Sub test1()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("求助表格")
   
7.     arr = .Range("a2:o30")
   
8.     ReDim brr(1 To 2, 1 To 7)
   
9.     For j = 4 To 10
   
10.       brr(1, j - 3) = arr(2, j)
    
11.       For i = 3 To UBound(arr)
    
12.         If Len(arr(i, 3)) <> 0 Then
    
13.           If Len(arr(i, j)) <> 0 Then
    
14.             brr(2, j - 3) = brr(2, j - 3) + 1
    
15.           End If
    
16.         End If
    
17.       Next
    
18.     Next
    
19.     For i = 1 To UBound(brr, 2) - 1
    
20.       p = i
    
21.       For j = i + 1 To UBound(brr, 2)
    
22.         If brr(2, p) < brr(2, j) Then
    
23.           p = j
    
24.         End If
    
25.       Next
    
26.       If p <> i Then
    
27.         temp = brr(1, i)
    
28.         brr(1, i) = brr(1, p)
    
29.         brr(1, p) = temp
    
30.         temp = brr(2, i)
    
31.         brr(2, i) = brr(2, p)
    
32.         brr(2, p) = temp
    
33.       End If
    
34.     Next
    
35.     For j = 1 To 3
    
36.       .Cells(j + 12, 24) = brr(1, j)
    
37.       .Cells(j + 12, 25) = brr(2, j)
    
38.     Next
    
39.   End With
    
40. End Sub
    

复制代码

chxw68

试写了第一个问题。

教父01

这么快？？？？

教父01

chxw68 发表于 2017-10-10 10:38
试写了第一个问题。

没看到公式啊？？？

chxw68

教父01 发表于 2017-10-10 10:43
没看到公式啊？？？

用的代码，这个问题可能更适合用公式来完成，要不你发到函数和公式版块求助。

教父01

chxw68 发表于 2017-10-10 10:47
用的代码，这个问题可能更适合用公式来完成，要不你发到函数和公式版块求助。

刚才我试着往基础数据表里面填写了数据，有车的排序没有发生变化啊！你再帮我看看！！！谢谢！！！