求教excel vba 中 WHILE 的用法问题 ,谢了

city0219

Private Sub CommandButton1_Click()
Dim I As Integer
Dim B As String
I = 2
B = Sheets("22").Range("A1").Value

'If Sheets("11").Cells(I, 4).Value Like "*" & B & "*" Then Sheets("22").Cells(I, 1).Value = Sheets("11").Cells(I, 4).Value

While Sheets("11").Cells(I, 4).Value　　＇？？？
If InStr(Sheets("11").Cells(I, 4).Value, B) Then Sheets("22").Cells(I, 1).Value = Sheets("11").Cells(I, 4).Value
I = I + 1
Wend

End Sub

错在哪里啊？？想不出来

cola

WHILE后面应该跟数值表达式或字符串表达式，其计算结果为 True 或 False。如果为 Null，则 condition 会视为 False。

这些问题可以自己动手查看帮助而得到解决的.

ninar

While Sheets("11").Cells(I, 4).Value <>""