数据合并问题

scnc001

请教一下各位老师：
前面的描述有点乱，修改一下：

如附件所示，
上方是现表格，下方是后粘贴进来的，
如何用vba把后粘贴进来的数据，与上方的相同项合并，填入对应列的表格中？

loirol

每个字都很普通，合在一起简直是天书

ykcbf1100

附件不完整，没有源数据。
不同的列号可以用字典去固定，只要AB列正确，应该不难。

3190496160

如果能够保证A.B两列正确的话，vba的数组+字典可以解决你的问题，但是，没有数据源，爱莫能助

scnc001

ykcbf1100 发表于 2024-12-20 06:47
附件不完整，没有源数据。
不同的列号可以用字典去固定，只要AB列正确，应该不难。

老师，其实就是您前面帮忙解答过的，遇到了一个新问题。描述已经直接写到了附件里。劳烦看一下，谢谢

usedrange

猜一个，不知道是不是这样

翁知江安

Sub hz()
Dim i, j, k, irow, irow1 As Integer
Dim ar, br As Variant
irow = Sheets("主要工程量分图统计").[a65536].End(xlUp).Row
ar = Sheets("主要工程量分图统计").Range("a1:q" & irow)
irow1 = Sheets("粘贴部分").[a65536].End(xlUp).Row
br = Sheets("粘贴部分").Range("a1:q" & irow1)
For i = 2 To irow
   For j = 2 To irow1
     If ar(i, 2) = br(j, 2) And ar(i, 3) = br(j, 3) Then
       Sheets("粘贴部分").Cells(j, 2).Interior.Color = vbGreen
       Sheets("主要工程量分图统计").Cells(i, 2).Interior.Color = vbGreen
        For k = 6 To 17
        Sheets("主要工程量分图统计").Cells(i, k) = ar(i, k) + br(j, k)
        Next
      End If
    Next
Next
MsgBox "ok"
End Sub

ykcbf1100

scnc001 发表于 2024-12-21 00:38
老师，其实就是您前面帮忙解答过的，遇到了一个新问题。描述已经直接写到了附件里。劳烦看一下，谢谢

问题是你得上传源数据啊。
光汇总表不够写的。

scnc001

ykcbf1100 发表于 2024-12-21 18:51
问题是你得上传源数据啊。
光汇总表不够写的。

这就是汇总之后，需要二次的处理的数据，只有少数项目的名称或编号需要调成一样之后，在工作表内再次合并一下就算完成。也算是源数据了，只截取了一部分有代表性的。。。（原来导入数据的代码很好用了，不用动了，加一个合并功能就好了）

ykcbf1100

scnc001 发表于 2024-12-21 20:29
这就是汇总之后，需要二次的处理的数据，只有少数项目的名称或编号需要调成一样之后，在工作表内再次合并 ...

附件供参考。。。