For Each rg In Range的查找顺序问题（由下至上）

ysjhxh

       Dim rg As Range
       Dim rc As Long
       rc = Range("A" & Rows.Count).End(4).Row
       For Each rg In Range("A1:A" & rc)
           If rg.Value Like ".*" Then
              Cells(rc, 7) = rg.Value
              Exit For
           End If
       Next
这段代码查找like ".*"的单元格，是由上至下的，也就是说从A1开始第一个符合条件的，我想反过来由下至上，从rc往上数第一个符合条件的单元格，请问如何实现。已知去掉exit for 可以达到效果，但是这样相当于从上面一直计算到最下面，运行比较慢，请问能否改成从下至上查询的。

yeminqiang

for  最后 to 开始 step-1
next

chxw68

改用For...Next循环：

1. 
   
2. Sub test1()
   
3.   Dim i&, rc&
   
4.   rc = 10
   
5.   For i = rc To 1 Step -1
   
6.     If Cells(i, 1) Like ".*" Then
   
7.       Cells(rc, 7) = Cells(i, 1).Value
   
8.       Exit For
   
9.     End If
   
10.   Next
    
11. End Sub
    

复制代码

huang1314wei

3楼回答是对的

ysjhxh

yeminqiang 发表于 2017-2-28 08:55
for  最后 to 开始 step-1
next

谢谢老师指点！！！！！