有两张表格求和，如何写函数？结果如表三：

来源：百度知道 编辑：UC知道 时间：2024/09/23 23:43:29
有两张表格求和，如何写函数？结果如表三：
表一
A 22
B 32
D 13
G 56

表二
B 12
D 2
C 68
H 89

表三
A 22
B 44
C 68
D 15
G 56
H 89
谢谢你们的解答， yym6211的我没看懂。 海天以色的不能显示A列的：
A
B
C
D
G
H

我根据要求修改了程序：(运行通过了)
Sub 追加合并()
Sheets("Sheet1").Cells.Copy
Sheets("Sheet3").Paste Destination:=Worksheets("Sheet3").Cells
Application.CutCopyMode = False

Worksheets("Sheet2").Activate
hang2 = Range("A1").End(xlDown).Row '取得表2中第一列数的个数
Worksheets("Sheet1").Activate
hang1 = Range("A1").End(xlDown).Row '取得表1中第一列数的个数
flag = 1
For i = 2 To hang2
name1 = Worksheets("Sheet2").Cells(i, 1).Value '表2中依次取第i数
For j = 2 To hang1 '在表1中依次查找是否有相同的数据
If Worksheets("Sheet3").Cells(j, 1).Value = name1 Then '找到相加填入表3
Worksheets("Sheet3").Cells(j, 2) = Worksheets("Sheet3").Cells(j, 2) + Worksheets("Sheet2").Cells(i, 2).Value
flag = 0
Exit For
End If
Next
If flag Then
Worksheets("Sheet3").Cells(hang1 + 1, 1) = Worksheets("Sheet