治疗鼻甲肥大多少钱:有关Excel的使用技巧

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/27 17:16:34
有两个数据表格,第一个用Ex1代表,包含所有信息,第二个用Ex1代表,是些要添加到Ex1的信息,但是这里面有新的,也有Ex1也包含的,怎么样把Ex2的信息按两个表格唯一相同的信息来自动对照,把重复的去掉,留下新的添加进入?

有两种方法:
假设A列为数据对照列
一、高级筛选
在Ex2下完成操作:数据—筛选——高级筛选,在条件区域选择“Ex1”表中的A列中的数据(注意要选上标题,Ex1,ex2的标题列要一样)。完成后,ex2表中所就显示是ex1有的数据,将其剪贴至其它表中,将剩下的自制到ex1表中即可。
二、编程
假设置两表只有A列有数据
这组代码可以完成你要的操作

Sub adddate()
Dim i As Integer
i = Worksheets("ex1").Columns(1).End(xlDown).Row + 1

For j = 1 To Worksheets("ex2").Columns(1).End(xlDown).Row
bo = True
For m = 1 To i
If Worksheets("ex1").Cells(m, 1).Value = Worksheets("ex2").Cells(j, 1).Value Then
bo = False
Exit For

End If
Next
If bo Then
' Worksheets("ex1").Rows(i) = Worksheets("ex2").Rows(j)
Worksheets("ex1").Cells(i, 1).Value = Worksheets("ex2").Cells(j, 1).Value

i = i + 1

End If
Next

End Sub

因为时间关系写得比较简单。但在Wxp+2003下测试通过。按Alt+f11,插入模块,然后将这段代码复制进去,按F5运行就可以。
有什么问题写消息吧!

补充回答:
观于第一种方法的仔细说明:
基础数据保存在表“Ex1”表中,将要追加的数据放在“Ex2”表中。使Ex2表为当前表。注意两个表格要有标题行。对Ex2执行高级筛选。在出现的对话框中列表区域就是EX2表中的数据(通常程序会自动选择),条件区域是EX1表中和EX2表中具有可比情的数据。
比如两表中都有姓名列,我们就可以用姓名列进行比较。比如可比数据在A列,那就选择从A1到最后一个数据。注意可比数据的标题一定要相同。确定后,Ex2表所显示是两表中都有的数据。选择这些数据,选择删除行,然从筛选菜单中选择”显示所有“。这Ex2表中的数据就是Ex1所没有的数据了。将期复制到Ex1即可。