恳请高手帮忙这个数据填入的问题

qiongmei6

我希望求得一个代码，“”社保账户“”表格b列如果和“”汇总“”表格的b列相符，则“”社保账户“”中的c列替代掉“”汇总“”表格的d列，但如果“社保账户”表格里b列有“汇总”表格里b列不相同的数据，则社保账户的b列出现在汇总的b列空白处，社保a列出现在汇总同行c列，社保的c列出现在汇总的d列，为了方便大神们理解我的意思，汇总表格中的k：q就是我希望得到的结果，但是这个结果希望在a3：g列显示，这个之前有发过相应的来求代码，有高手师傅提供，但是本人还是太笨了，看了半天不知道咋修改，因此再次发上来恳请大神帮忙。

gwjkkkkk

请参考。。。

qiongmei6

谢谢gwjkkkkk师傅的回答，搞定了，再次谢谢gwjkkkkk师傅的回答

吴中泉

发一段很“笨”的程序，但保证你的数据正确。觉得好用送花鼓励，新人还需要大家照应。

1. Sub 填汇总表()
   
2.     Dim H_max_row, S_max_row, i, j, r As Integer
   
3.     Dim arr
   
4.     H_max_row = Sheets("汇总").Range("b65536").End(xlUp).Row
   
5.     S_max_row = Sheets("社保账户").Range("b65536").End(xlUp).Row
   
6.    
   
7.     ReDim arr(1 To S_max_row) As Byte  '标志
   
8.     '查找并填写相同账号的数据
   
9.     For i = 3 To (S_max_row)
   
10.         For j = 3 To (H_max_row)
    
11.             If Sheets("汇总").Cells(j, 2) = Sheets("社保账户").Cells(i, 2) Then
    
12.                 Sheets("汇总").Cells(j, 4) = Sheets("社保账户").Cells(i, 3)
    
13.                 arr(i) = 1
    
14.                 Exit For
    
15.             End If
    
16.         Next j
    
17.     Next i
    
18.     '在汇总表尾部追加不同账号的数据
    
19.     r = H_max_row
    
20.     For i = 3 To (S_max_row)
    
21.          If arr(i) <> 1 Then
    
22.             r = r + 1
    
23.             Sheets("汇总").Cells(r, 4) = Sheets("社保账户").Cells(i, 3)
    
24.             Sheets("汇总").Cells(r, 3) = Sheets("社保账户").Cells(i, 1)
    
25.             Sheets("汇总").Cells(r, 2) = Sheets("社保账户").Cells(i, 2)
    
26.        End If
    
27.       
    
28.     Next i
    
29. End Sub
    
30. 
    

复制代码

rocklyman

gwjkkkkk 发表于 2023-4-4 18:46
请参考。。。

请教一下代码最后这个Beep是干嘛用的？

ykcbf1100

rocklyman 发表于 2023-4-6 10:52
请教一下代码最后这个Beep是干嘛用的？

电脑提醒的声音，不用也行。

gwjkkkkk

rocklyman 发表于 2023-4-6 10:52
请教一下代码最后这个Beep是干嘛用的？

电脑提醒，表示程序完结。。。