Excel VBA常见问题:如何两表合一?

2015-04-13 18:11 阅读 89 次 评论关闭

两表合一实例

问题提出:怎样把两个表(有相同的字段)怎样合并成一个表?
思路:用CountIf()函数对表1进行判断,如果其值为0,则表示没以重复,再将表2中和表1不重复的数据复制到表1中,从而实现两表合一。

解题的方法:
Sub dd()
b = Sheets(2).[a1].CurrentRegion.Rows.Count + 1
‘判断表2的行数
For i = 3 To b
a = Sheets(1).[a1].CurrentRegion.Rows.Count + 1
‘判断表1的行数
c = Sheets(2).[a1].CurrentRegion.Columns.Count
‘判断表2的列数
If Application.WorksheetFunction.CountIf(Sheets(1).[b1:b1000], Sheets(2).Cells(i, 2)) = 0 Then
Sheets(2).Range(Sheets(2).Cells(i, 1), Sheets(2).Cells(i, c)).Copy Sheets(1).Cells(a, 1)
‘将表2中与表1不重复的数据复制到表1中
End If
Next
End Sub

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel VBA常见问题:如何两表合一? | 猎微网

评论已关闭!