求助VBA实现2列数据比较
判断I列单元格内的数据是否包含了C列单元格的数据，是的话 ，删掉I列这行数据，否的话，保留数据到K列。判断K列结果1单元格的数据是否包含了F列单元格的数据，是的话 ，保留K列这行数据到L列判断K列结果1单元格的数据是否包含了F列单元格的数据，是的话 ，删除K列这行数据，否的话，保留数据到M列。
不过我看你用的是ACTIVE控件的按钮。代码需要写在对应的控件中，当然也可以在模块中写宏，然后在控件中写句调用代码。
思路可以告诉你，但是不会免费给你写具体代码的。毕竟要消耗精力和时间的，还要测试。如需要写可以私信另议。
思路如下，先循环要核对的区域，嵌套循环要被核对的区域。看你的条件是，只要包含就执行某操作，那么只要有符合条件的，就不继续找了， 直接跳出两级循环执行必要的操作，如果找完了还没有，那么不执行符合条件的操作，或者不包含的条件的操作。
如果还有问题，可以继续追问或者私信。
怎么用VBA比对两列数据的不同?
1、首先分别在“sheet1和sheet2”输入数据内容。2、在sheet1需要录入比对结果的空白C2单元格上输入：=IF(COUNTIF( 。3、切换到Sheet2中需要查询的单元列位置并选中整列。4、在Sheet1中，在公式后面输入英文字符下的逗号后选择A2单元格，公式变为：=IF(COUNTIF(Sheet2!A:A,Sheet1!A2 。5、最...
在excel中,用VBA实现两列数据的比较
实现代码如下：1234567891011121314151617Sub abc() Dim D As Object, i As Integer, index As Integer Set D = CreateObject("scripting.dictionary") With Sheet1 For i = 1 To Range("b65536").End(xlUp).Row D(.Cells(i, 2).Value) = "" Next For i = 1 To R...
求助VBA实现2列数据比较
思路如下，先循环要核对的区域，嵌套循环要被核对的区域。看你的条件是，只要包含就执行某操作，那么只要有符合条件的，就不继续找了， 直接跳出两级循环执行必要的操作，如果找完了还没有，那么不执行符合条件的操作，或者不包含的条件的操作。如果还有问题，可以继续追问或者私信。
VBA 在EXCEL中能不能 对两列名称进行对比 筛选 并将不同项列出来
函数，先读第一列第一个数据为A1，然后读第二列数据，每个都同A1比较，相同的忽略，不同的将数值付给一个变量；然后再读第二个数据A2,重复读第二列数据，进行比较---直至两列数据全部结束，这里面用到IF..THEN..ELSE..ENDIF ,FOR...NEXT语句 ...
使用excel vba自动对比两列时间数字
相信使用条件格式，是最简单的。选定数列1，再依次选择菜单 格式 条件格式 弹出条件格式对话框 第一个下拉框选 公式，后面框中输入 =COUNTIF($B$2:$B$15,"=" & $A2)=0 格式再选择下自己喜欢的 下面图是个简单例子
如何用vba找出两列不同的数据
循环将数据作为字典的关键字添加字典项，再将另一列数据读入数组，再循环一次，比较这个数据是否已是字典已有的项，如果不是，说明这个数据在前面列不存在，如果是将这个关键字赋一个值（如1）。最后字典中没有赋值的项就是后一列没有的数据。本方法能双向对比找出一列在另一列没有的数据。
VBA求高手 在线等 用For语句对比两列数据大小
=IF(VALUE(Sheet1!A1)>VALUE(Sheet1!B1),1,IF(Sheet1!A1<Sheet1!B1,2,3))
excel用VBA实现两列数据比较是否相等
sub test（）‘假设e列和f列比较，结果写入g列，对应的列号为5、6、7 ‘开始行号=2 hh=2 do while cells（hh,5）<>""IF CELLS(HH,5)=CELLS(HH,6) THEN CELLS(HH,7)="正确"else CELLS(HH,7)="错误"endif HH=HH+1 LOOP end sub ...
vba 如何比较excel两列不重复数据
你是要相同数据的并且是同行的才显示红色是吧?可是看你贴的代码是数据不同了就把两个单元格的的字显示红色啊.先按你贴的代码加上 是否同行的判断 贴给你 你试试吧 Dim cc With NewDataBook.Sheets(1)For cc = 2 To .UsedRange.Rows.Count If .Cells(cc, 1) <> .Cells(cc, 2) And ....
用VBA检查EXCEL中两列数据的重复数据
这个用2嵌套的循环来实现比对就可以了,A列第一个数据和B列第一个数据比对,如果不重复就转到B列第二个,如果重复了就转到A列第二个,依次比对。大概十几句代码吧,添加一个按钮: (假定数据从第二行开始)Private Sub CommandButton1_Click()ROW_A = 2: ROW_B = 2 ENDROW_B = [A65536].End(...
