求助各路大神

andylt0503

Sub 合同号()
m = [b65536].End(3).Row
n = Sheet1.[b65536].End(3).Row
    For y = 2 To n
         For x = 2 To m
            If Cells(x, 2) <> "" Then
                Cells(x, 1) = Sheet1.Cells(y, 2)
            End If
            If Cells(x, 2) = "" Then
                Exit For
            End If
         Next
     Next
End Sub

如何让x退出循环后，还能保持，不重置为2.

wcs98

exit for 换成go to line100，在for x=....这句下面加上line100:

w609053988

保持x第一次循环结束的值，然后给第二次循环用？

andylt0503

w609053988 发表于 2019-8-23 17:38
保持x第一次循环结束的值，然后给第二次循环用？

是的，一直没找到办法。

w609053988

andylt0503 发表于 2019-8-23 17:46
是的，一直没找到办法。

这样做的话，你的循环就没意义了，根据自己的需求换思路吧

xmh850216

code里的值是运行的时候在内存里的，你要放到一个地方才能保存，比如说放到[g1]单元格，先在[g1]单元格输入个初始值，比如说2

1. 
   
2. Sub 合同号()
   
3. m = [b65536].End(3).Row
   
4. start_row = [g1].value
   
5. n = Sheet1.[b65536].End(3).Row
   
6.     For y = 2 To n
   
7.          For x = start_row  To m
   
8.             If Cells(x, 2) <> "" Then
   
9.                 Cells(x, 1) = Sheet1.Cells(y, 2)
   
10.             End If
    
11.             If Cells(x, 2) = "" Then               
    
12.                 [g1].value = x+1
    
13.                 Exit For
    
14.             End If
    
15.          Next
    
16.      Next
    
17. End Sub

复制代码

andylt0503

xmh850216 发表于 2019-8-23 17:57
code里的值是运行的时候在内存里的，你要放到一个地方才能保存，比如说放到[g1]单元格，先在[g1]单元格输入 ...

我试了，不行，退出循环后，再次循环，X从8又变成了2

andylt0503

wcs98 发表于 2019-8-23 17:37
exit for 换成go to line100，在for x=....这句下面加上line100:

这样Y就没法循环了，

andylt0503

andylt0503 发表于 2019-8-24 09:41
我试了，不行，退出循环后，再次循环，X从8又变成了2

改成For x = [g1].value  To m 可以了，多谢！

andylt0503

xmh850216 发表于 2019-8-23 17:57
code里的值是运行的时候在内存里的，你要放到一个地方才能保存，比如说放到[g1]单元格，先在[g1]单元格输入 ...

改成For x = [g1].value  To m 可以了，多谢！