怎么把两个不同行的表，相同的行对应在同一行内排序，不同的行空下，请教大家了

281991920

请教大家了，结果可以发我邮箱281991920@qq.com谢谢

MicrosoftEH

选定范围
定位空值
删除-向上移动

grf1973

1. Sub tt()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet1.[a1].Resize(29, 12)   '源数组
   
4.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))   '跟源数组一样大小的空数组
   
5.     For i = 3 To UBound(arr)
   
6.         d(arr(i, 1)) = i    '根据明细表，不同货号应该在的行数
   
7.         brr(i, 1) = arr(i, 1): brr(i, 2) = arr(i, 2): brr(i, 3) = arr(i, 3)    '1--3列进数组brr
   
8.     Next
   
9.     For i = 3 To UBound(arr)
   
10.         For j = 4 To 10 Step 3
    
11.             x = d(arr(i, j))      '不同货号应该在的行数
    
12.             If x > 0 Then
    
13.                 brr(x, j) = arr(i, j): brr(x, j + 1) = arr(i, j + 1): brr(x, j + 2) = arr(i, j + 2)   '源数组4--12列内容按行数进入数组Brr
    
14.             End If
    
15.         Next
    
16.     Next
    
17.     With Sheet3   '显示brr
    
18.         .[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
    
19.         Sheet1.Rows("1:2").Copy .Rows(1)
    
20.         .Activate
    
21.     End With
    
22. End Sub
    

复制代码

grf1973

请看附件。全部做在一个文件里了。

281991920

grf1973 发表于 2014-6-23 10:12
请看附件。全部做在一个文件里了。

问题解决了，非常感谢

LMY123

字典法相同数据放在同一行