多行数据合并到一行的问题

weizb

要求：从原表中取承包方姓名相同的地名、东至、西至、南至、北至、面积到本表中，放在同一行，分别东至1、西至1、南至1、北至1、面积1.。。。东至2、西至2、南至2、北至2、面积2.。。。到本表中，放在同一行，原表中只是用少量数据举例而已，实际有大量数据，一户最多有10行，意思就是要列到东至10、西至10、南至10、北至10、面积10.。。。

weizb

忘记发附件了，附件在这里

lenghonghai601

蔡保成还是蔡伟成？？？

liulang0808

1. Sub test11()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     Sheets(2).Select
   
5.     ActiveSheet.UsedRange.Offset(1).Clear
   
6.     a = 2
   
7.     With Sheets(1)
   
8.         For j = 2 To .Cells(Rows.Count, 1).End(3).Row
   
9.             str1 = .Cells(j, 1) & .Cells(j, 2)
   
10.             If Len(str1) > 0 Then
    
11.                 If d.exists(str1) Then
    
12.                     r = d(str1)
    
13.                     .Cells(j, 1).Resize(1, 8).Copy Cells(r, Columns.Count).End(xlToLeft).Offset(0, 1)
    
14.                 Else
    
15.                     d(str1) = a
    
16.                     .Cells(j, 1).Resize(1, 8).Copy Cells(a, 1)
    
17.                     a = a + 1
    
18.                 End If
    
19.                
    
20.             End If
    
21.         Next j
    
22.     End With
    
23.     Application.ScreenUpdating = True
    
24. End Sub

复制代码

liulang0808

附件内容供参考。。。。。。

hcm19522

A2:B13{=INDEX(原表!N:N,SMALL(IF(COUNTIFS(OFFSET(原表!$A$2,,,ROW(原表!N$1:N$35)),原表!$A$2:$A$36,OFFSET(原表!$B$2,,,ROW(原表!N$1:N$35)),原表!$B$2:$B$36)=1,ROW(原表!N$2:N$36),4^8),ROW(原表!N15)))&""

C2:BJ13{=IFERROR(OFFSET(原表!$B$1,SMALL(IF((原表!$A$2:$A$36=原表!$J2)*(原表!$B$2:$B$36=原表!$K2),ROW(原表!A$2:A$36)),INT(COLUMN(原表!F1)/6))-1,MOD(COLUMN(原表!A1)-1,6)+1),"")