lzth.net
当前位置:首页 >> vBA中如何用双循环判断两列单元格的内容是否相等 >>

vBA中如何用双循环判断两列单元格的内容是否相等

sub test()'假设e列和f列比较,结果写入g列,对应的列号为5、6、7'开始行号=2hh=2do while cells(hh,5)""if cells(hh,5)=cells(hh,6) thencells(hh,7)="正确"elsecells(hh,7)="错误"endifhh=hh+1loopend sub

我给你提供一个简便的办法,你在2007版本上,用宏,跟踪宏,然后做你想要的操作,你停止,查看宏里的代码就是你想要的,比较方便

Range("B6") = ""If WorksheetFunction.CountA(Range("A1:A5,C1:C5")) = 10 Then For i = 1 To 5 If WorksheetFunction.CountIf(Range("C1:C5"), Cells(i, 1)) > 0 Then If Range("B6") = "" Then Range("B6") = Cells(i, 1) Else Range("B6") = Range("B6") & "&" & Cells(i, 1) End If End If NextEnd If

if cells(row,column)=cells(n,m)then msgbox "相同" else msgbos "不想同" end if

sub 判断() dim i as long dim j as long for j = 1 to sheets(1).cells(65536, 1).end(xlup).row for i = 1 to sheets(2).cells(65536, 2).end(xlup).row if sheets(1).cells(j, 1).value = sheets(2).cells(i, 1).value then if sheets(1).cells(j, 2).value = sheets(2).cells(i, 2).

用 MergeArea 属性返回合并的区域,然后判断各个单元格是否在上述区域内即可

用函数like 设定两个变量a,b接收两个单元格的数据,flag变量得到比较结果.a=range("a1");b=a=range("b1") flag= a like b 如果flag=true,则表示两个单元格数据相同;false值,数据不同.

您好,您这样:Sub 判断()Dim i As LongDim j As LongFor j = 1 To Sheets(1).Cells(65536, 1).End(xlUp).Row For i = 1 To Sheets(2).Cells(65536, 2).End(xlUp).Row If Sheets(1).Cells(j, 1).Value = Sheets(2).Cells(i, 1).Value Then If Sheets(1).Cells(

这个文件夹属于系统一类的,用蓝牙和数据线的连接方式是无法看到的,必须用读卡器与电脑连接,并依次打开=我的电脑=工具=文件夹选项=查看=1、将“显示系统文件夹的内容”项打钩; 2、去掉:“隐藏受保护的操作系统文件”项的钩; 3、打钩:“显示所有文件和文件夹”项. 点确定,OK!

如果你销会一些,可以这样,录制一个设置公式的宏,再录制一个设置格式的宏, 把两个宏的语句放在一起,稍加修改,再加个IF语句.基本就行了.在实在不行的情况下,可以需要检查的值先都引用到一个表上,再用条件格式检查.附上一个水平

网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com