VBA怎么快速定位到某个单元格，求大神指点迷津！

fieldset{padding:10px;}

VBA如何快速定位到某个单元格，求大神指点迷津！！！如图，我试图找出最后一个”A”的行号，最后一个”B”的行号，最后一个”C”的行号，由于”A”的数量太庞大，于是我写了如下代码：

SubABC()Dimi,RowSum,A_LastNum,B_LastNum,C_LastNumAsLongRowSum=Range("A1",Range("A1").End(xlDown)).Cells.Counti=RowSum+1Doi=i-1If(Cells(i,1).Value="C")And(Cells(i+1,1).Value<>"C")ThenC_LastNum=iElseIf(Cells(i,1).Value="B")And(Cells(i+1,1).Value<>"B")ThenB_LastNum=iElseIf(Cells(i,1).Value="A")And(Cells(i+1,1).Value<>"C")ThenA_LastNum=iExitDoEndIfEndIfEndIfLoopEndSub

这段代码从这一列的最后开始循环，但是如果”B”，”C”的数量也比较多的话，循环会花费很多时间，我想问各位大神，有没有什么能快速定位到最后一个”A”，最后一个”B”，最后一个”C”而避免循环的方法？求大神指点迷津啊！！！

——解决方案——————————————————–

SubABC()'这是一个宏Dimi,RowSum,A_LastNum,B_LastNum,C_LastNumAsLongActiveSheet.Cells.Find(What:="B").ActivateA_LastNum=Selection.Row-1ActiveSheet.Cells.Find(What:="C").ActivateB_LastNum=Selection.Row-1Fori=Selection.RowTo65534IfActiveSheet.Cells(i,1).Value="C"AndActiveSheet.Cells(i+1,1).Value<>"C"ThenC_LastNum=iExitForEndIfNextiDebug.PrintA_LastNum,B_LastNum,C_LastNumEndSub

——解决方案——————————————————–

引用:

如图，我试图找出最后一个”A”的行号，最后一个”B”的行号，最后一个”C”的行号，由于”A”的数量太庞大，于是我写了如下代码：VisualBasiccode?1234567891011121314151617181920SubABC()Dimi,RowSum,A_LastNum,B_LastNum,C_LastNumAsLongRowSum=Range(……没有创造的生活不能算生活，只能算活着。

相关文章：

你感兴趣的文章：

标签云：