[求助] 如何按条件把多行记录转换成一行记录

ftwbcel

如果巡查日志明细中的编号和姓名与商户登记表中的编号和姓名一致，则把巡查日志明细中的数据（多行）导到商户登记表中的明细当中（一行）  数据包含（日期，类型，问题，处理结果，巡查人员，备注）

autumnalRain

有时间做下

ftwbcel

autumnalRain 发表于 2015-11-18 17:59
有时间做下

谢谢，不胜感激。

autumnalRain

不好意思，回复晚了

1. Sub test()
   
2. For I = 3 To Sheet1.[A2].End(xlDown).Row
   
3.     For J = 2 To Sheet3.[A1].End(xlDown).Row
   
4.         With Sheet3
   
5.            If Sheet1.Cells(I, 2) & Sheet1.Cells(I, 7) = .Cells(J, 2) & .Cells(J, 4) Then
   
6.               
   
7.                Sheet1.Cells(I, X + 21).Resize(1, 6) = Array(.Cells(J, 1), .Cells(J, 9), .Cells(J, 6), .Cells(J, 7), .Cells(J, 8), .Cells(J, 12))
   
8.                 X = X + 6
   
9.             End If
   
10.         End With
    
11.       
    
12.      Next J
    
13.    
    
14.         X = 0
    
15.      Next I
    
16. End Sub

复制代码

kszcs

高手就是高手，学习了