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

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

for i=2 to 5 for j=2 to 5 if cells(i,2)=cells(j,3) then cells(i,3)= cells(i,2)*cells(j,3) end if next next 你这样是用B列和C列对比,不是同行对比哦, 如果是要同行对比,代码改为如下 for i=2 to 5 if cells(i,2)=cells(i,3) then cells...

dim i , j ,Xfor i = 1 to 10 for j = 1 to 5 if cells(i , j) =1 then X=3 cells(i , j).interior.colorindex = X endif next jnext i在cells(1,1)到cells(10,5)范围内找出值为1的格子并上红色

你的判断是为0而不是为空,如果是判断为空,="" 循环如下 sub test () i=range("A65536").end(xlup).row‘判断A列最后一行的行号 for x=1 to i’建立循环从第一行到最后一行 if cells(x,1)=0 then cells(x,6)=cells(x,1) & cells(x,2) & cells(x,3...

是的,要用VBA数组 也就是用数组代码完成 VLOOKUP的效果 2个约4000行数据,需要2秒钟左右

程序本身应该没问题 应该是数据问题,比如单元格中不是数字,有空格之类。

举个例子,比如对第一列中 a1:a10单元格进行循环判断,可以这么书写 for i=1 to 10 if cells(i,1)>10 then ..... end if next

n=1 'i从1开始,到多少结束? for i=1 to n if len(cells(i,1))=0 then for j=1 to 5 cells(i,j)=j next j else for j=1 to 5 cells(i+1,j)=j next j end if next i 这个循环实现容易,可你这个算法是有问题的,如果第一行非空,那么第二行被赋...

你有编程的学习经历的话,学习excel公式和函数,甚至VBA都很轻松了,建议你多看看excel自带的函数帮助,对于你这样有底子的人能很快上手. excel中如果不用vba是没有直接进行循环的语句的,但是有数组公式可以用,不过你这个问题还用不到数组公式 在C1...

应该是可以的,可以使用单元格的SpecialCells属性,我研究一下贴代码 Sub aa() On Error Resume Next Range("a1:a1000").SpecialCells(xlCellTypeVisible).Select For Each r In Selection '你的循环体 Next End Sub

以固定单元格,1对1写代码,这也太麻烦了,而且容易出错,不方便。 应该以科目代码为查询项,来写,不过得先设定科目属性。 要说的太多了,没办法一 一说明埃

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