用循环+判断确定筛选数据
评论|0
2011-06-28 01:52laipian71|五级
用VBA 很简单的,如果你将表的结构告诉我,我也可以替你写几句, 例如：先将sheet2 复制到sheet3 假定客户名都在第一列在sheet3 中运行下面程序（工具
评论|0
2011-07-02 18:58热心网友
用VBA 很简单的,如果你将表的结构告诉我,我也可以替你写几句,
例如：
先将sheet2 复制到sheet3
假定客户名都在第一列
在sheet3 中运行下面程序（工具——宏——visual basic编辑器)
Sub kk()
Dim ints As Integer
Dim ragc As Range
Dim stofind As String, firadd As String
Dim wors As Worksheet
Application.ScreenUpdating = False
Set wors = Worksheets(\"sheet1\")
For ints = 2 To 1000
stofind = wors.Cells(ints, 1)
Set ragc = ActiveSheet.Range(\"A2:A800\").Find(what:=stofind, lookat:=xlPart)
If Not ragc Is Nothing Then
firadd = ragc.Address
ragc.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next ints
Application.ScreenUpdating = True
End Sub
表中剩下的就是不重复的客户
另外,虚机团上产品团购,超级便宜
