求两个excel表格的差集方法(适用于第二个表格是第一个表格的子集),会在第一个表格中标注出第二个表格中已有的。
复制并用运时“*/ /*”之间的文字为说明文字,必须删除
使用时点击“开发工具”---“插入”---“模块”复制以下代码并根据实际情况做修改
以下为可用的代码-----------------------------
--------------------------------------------------------------------------
Sub 数据对比()
Dim i As Integer */i表示第一个母集/*
Dim j As Integer */j表示第二个子集/*
For i = 1 To 654 '合同清单 */表示i集合中需要对比的数据从第一行到第654行/*
For j = 1 To 135 '11.14 */表示j集合中需要比对的数据从第1行到第135行/*
If Sheets("合同清单").Cells(i, 1) = Sheets("11.14").Cells(j, 1) Then */"("合同清单")"表示第一个集合的名称,Cells(i, 1)中的i表示第一个集合(母集),1表示集合中的第一列(如果用来比较的数据是滴二列就改为2)/*
Sheets("合同清单").Cells(i, 11) = "已存在" '存在时进行标记 */"表示在“合同清单”这个工作表中标注比对的结果,11表示标注记号所标注的列,“已存在”表示比对完毕后在母集的第11列标出的文字记号(可根据自己喜好随意更改)/*
End If
Next j
Next i
End Sub
本文来源:https://www.wddqw.com/doc/a8984ce131126edb6e1a1066.html
正在阅读:
求两个excel表格的差集方法01-01
鼓的击奏方法击鼓节奏谱01-01
我和学生徜徉在美丽的书香里01-01
卖油翁原文及翻译01-01
西游记原著第86回概括100字01-01
高妙的近义词01-01
《西游记》第二十九回脱难江流来国土 承恩八戒转山林01-01
小学六年级语文上册 第1单元 古诗三首(相关资料)01-01
夸张句的例子10个短的01-01