VBA FOR+IF循环问题

cccccry

1. For i = 1 To 65
   
2. 
   
3.     str1 = Cells(i, 4).Value
   
4. 
   
5.       If str1 <> projectname Then
   
6. 
   
7.     Next
   
8. 
   
9.        Else
   
10. 
    
11.          Cells(i, 6) = edition
    
12. 
    
13.        End If
    

复制代码

其中str1 edition projectname分别代表字符串，一直出现next没有for的提示，请问是哪里有问题

零零度

For i = 1 To 65
        str1 = Cells(i, 4).Value
        If str1 <> projectname Then
        Else
         Cells(i, 6) = edition
        End If
Next

素心1218

1. 
   
2.   For i = 1 To 65
   
3.     str1 = Cells(i, 4).Value
   
4.      If str1 = projectname Then
   
5.            Cells(i, 6) = edition
   
6.      end if
   
7.    next
   

复制代码

于箱长

next放错了位置 ，for……next 与if……else……end if 不可以交叉

cccccry

零零度 发表于 2020-5-22 13:48
For i = 1 To 65
        str1 = Cells(i, 4).Value
        If str1  projectname Then

我是想如果str1不等于projectname，就结束if，接着判断下一个i

q3698995

1. For i = 1 To 65
   
2.     If Cells(i, 4).Value = "projectname" Then Cells(i, 6).Value = "edition"
   
3. Next

复制代码

零零度

cccccry 发表于 2020-5-22 14:02
我是想如果str1不等于projectname，就结束if，接着判断下一个i

For i = 1 To 65
        str1 = Cells(i, 4).Value
        If str1 <> projectname Then GoTo nxt
        Cells(i, 6) = edition
nxt:
Next
End Sub

any1009

For i = 1 To 65
        str1 = Cells(i, 4).Value
        If str1 = projectname Then
               Cells(i, 6) = edition
        End If
Next