以合并单元的所占的两行为一组数据，用VBA做到，

lrzexcel

以C列的直径所占的两行为一组数据，按降序排列,用VBA能帮做下吗？前辈们，如果没空的话，能告诉我一下该用什么函数能做到，我再慢慢弄

liulang0808

1. Sub 按钮1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [a1].CurrentRegion
   
4.     Application.ScreenUpdating = False
   
5.     [a1].CurrentRegion.Copy [n1]
   
6.     [n1].CurrentRegion.Offset(2).Delete
   
7.     r = 3
   
8.     For j = 3 To UBound(arr) Step 2
   
9.         If Len(arr(j, 3)) > 0 Then d(arr(j, 3)) = 1 + d(arr(j, 3))
   
10.     Next j
    
11.     brr = d.keys
    
12.     For j = 0 To UBound(brr)
    
13.         For i = j + 1 To UBound(brr)
    
14.             If Val(brr(i)) > Val(brr(j)) Then
    
15.                 tm = brr(j)
    
16.                 brr(j) = brr(i)
    
17.                 brr(i) = tm
    
18.             End If
    
19.         Next i
    
20.     Next j
    
21.     For i = 0 To UBound(brr)
    
22.         For j = 3 To UBound(arr) Step 2
    
23.             If arr(j, 3) = brr(i) Then
    
24.                 Cells(j, 1).Resize(2, 12).Copy Cells(r, "n")
    
25.                 r = r + 2
    
26.             End If
    
27.         Next j
    
28.     Next i
    
29.     Application.ScreenUpdating = True
    
30. End Sub
    

复制代码

liulang0808

折中处理了下，供参考吧。。。。。。

lrzexcel

liulang0808 发表于 2019-12-17 07:59
折中处理了下，供参考吧。。。。。。

多谢版主了，这正是我需要的