首页 新闻 搜索 专区 学院

excel宏For循环满足条件Exit For后Y值不会自增,请教哪里有问题怎么修改

0
悬赏园豆:10 [已解决问题] 解决于 2016-07-05 15:20
复制代码
 1 Sub 宏222()
 2 Dim x%
 3 Dim y%
 4 For x = 1 To 4000 Step 1
 5 If Sheet1.Cells(x, 2) <> "" Then
 6 
 7 For y = 1 To 4000 Step 1
 8 If Sheet2.Cells(y, 2) <> "" Then
 9 
10 If Sheet2.Cells(y, 2) = Sheet1.Cells(x, 2) And Format(Sheet1.Cells(y, 9), "mm/dd hh:mm") = Format(Sheet2.Cells(x, 5), "mm/dd hh:mm") Then
11 
12 Sheet3.Cells(x, 1) = "OK-M"
13 Next
14 Exit For
15 
16 Else
17 
18 Sheet3.Cells(x, 1) = "NO-M"
19 
20 
21 End If
22 
23 End If
24 
25 Next
26 
27 End If
28 
29 Next
30 31 End Sub
复制代码
阿文sky的主页 阿文sky | 初学一级 | 园豆:158
提问于:2016-07-05 15:13
< >
分享
最佳答案
0

问题已解决

阿文sky | 初学一级 |园豆:158 | 2016-07-05 15:20
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册