vba 跳出for循环_如何退出FOR循环?在线等

Sub 按钮3_单击()

Dim ii As Integer

Dim hh As Integer

Dim jj As Integer

Dim qq As Integer

Dim ww As Integer

Dim zong As Integer

For zong = 3 To 5

For ii = 1 To 10000

If Sheets("sheet1").Cells(zong, 3) = Sheets("sheet2").Cells(ii, 3) And Range("f2") = Sheets("sheet2").Cells(ii, 2) Then

Cells(zong, 6).Value = "已开通"

Exit For

End If

Next

For hh = 1 To 1000

If Sheets("sheet1").Cells(zong, 3) = Sheets("sheet2").Cells(hh, 3) And Range("g2") = Sheets("sheet2").Cells(hh, 2) Then

Cells(zong, 7).Value = "已开通"

Exit For

End If

Next

For jj = 1 To 1000

If Sheets("sheet1").Cells(zong, 3) = Sheets("sheet2").Cells(jj, 3) And Range("h2") = Sheets("sheet2").Cells(jj, 2) Then

Cells(zong, 8).Value = "已开通"

Exit For

End If

Next

For qq = 1 To 1000

If Sheets("sheet1").Cells(zong, 3) = Sheets("sheet2").Cells(qq, 3) And Range("i2") = Sheets("sheet2").Cells(qq, 2) Then

Cells(zong, 9).Value = "已开通"

Exit For

End If

Next

For ww = 1 To 1000

If Sheets("sheet1").Cells(zong, 3) = Sheets("sheet2").Cells(ww, 3) And Range("j2") = Sheets("sheet2").Cells(ww, 2) Then

Cells(zong, 10).Value = "已开通"

Exit For

End If

Next

Next

End Sub

请问:

For zong = 3 To 5 中如何将5换成自动判断sheet1中C列的数据行呢?

For ii = 1 To 10000中如何将10000换成自动判断sheet2中C列的数据行呢?

If Sheets("sheet1").Cells(zong, 3) = Sheets("sheet2").Cells(ii, 3) And Range("f2")  这个是判断两个单元格的内容是否相等,能换成这个Sheets("sheet2").Cells(ii, 3) And Range("f2")  单元是否包含这个Sheets("sheet1").Cells(zong, 3)单元格吗?   谢谢..

[本帖最后由 ahang 于 2009-5-19 14:39 编辑]