请问老师这个代码怎么实现

ryoryo66

把G:I里的个位数字,按从小到大,显示出来,重复的就显示一次

请老师帮忙看看.

看见星光

1. Sub SortData()
   
2.     Dim arr, brr, i&, j&, r, lngMax&, n&
   
3.     arr = [g1:i12]
   
4.     lngMax = Application.Max(arr)
   
5.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     For i = 1 To UBound(arr)
   
7.         ReDim r(0 To lngMax)
   
8.         For j = 1 To UBound(arr, 2)
   
9.             r(arr(i, j)) = 1
   
10.         Next
    
11.         j = 0
    
12.         For n = 0 To lngMax
    
13.             If r(n) = 1 Then j = j + 1: brr(i, j) = n
    
14.         Next
    
15.     Next
    
16.     [m1:o12] = brr
    
17. End Sub

复制代码

看见星光

求助.rar (259.8 KB, 下载次数: 5)

2018-7-11 11:00 上传

点击文件名下载附件

zopey

Sub 按钮1_Click()
Dim arr, brr(), crr(), k0
k0 = [g1].End(4).Row
arr = [g1].Resize(k0, 3)

ReDim brr(1 To k0, 0 To 9)
For i = 1 To k0
For j = 1 To 3
    brr(i, arr(i, j)) = brr(i, arr(i, j)) + 1
Next
Next

Dim k
ReDim crr(1 To k0, 1 To 3)
For i = 1 To k0
k = 0
For j = 0 To 9
   If brr(i, j) > 0 Then k = k + 1: crr(i, k) = j
Next
Next

[m1].Resize(k0, 3) = crr
End Sub

求助2.zip (208.14 KB, 下载次数: 1)

2018-7-11 11:01 上传

点击文件名下载附件

ryoryo66

感谢两位老师的帮忙!

ryoryo66

zopey 发表于 2018-7-11 11:01
Sub 按钮1_Click()
Dim arr, brr(), crr(), k0
k0 = [g1].End(4).Row

还想问一下,如果我把数字移动从第二行开始,显示也从第二行开始显示,要怎么改动一下?

zopey

k0 = [g1].End(4).Row-1
arr = [g2].Resize(k0, 3)
...
[m2].Resize(k0, 3) = crr

ryoryo66

zopey 发表于 2018-7-11 11:48
k0 = [g1].End(4).Row-1
arr = [g2].Resize(k0, 3)
...

非常感谢帮忙!