嵌套操作虽然内部循环只在外部循环的第一次迭代中运行

我正试图做一个多重条件search。 如果两个参数等于另一个工作表中的另外两个参数，则执行一些操作。

内部Do While运行一次。

 Sub main() Dim mat As String Dim sp As String Dim colArt As Integer colArt = 8 Dim colMat As Integer colMat = 2 Sheets("Art.1 (2)").Activate Dim i As Integer i = 5 Dim j As Integer j = 2 'Row Do While i < 12 If (Cells(i, colArt) <> "") Then Dim tempMat As String tempMat = Cells(i, colArt) Dim tempSp As Integer tempSp = Cells(i, colArt - 1) Do While j < 16 If (Worksheets("Mat").Cells(j, colMat) <> "") Then Dim tempMatMat As String tempMatMat = Worksheets("Mat").Cells(j, colMat) If (StrComp(tempMat, tempMatMat, vbTextCompare) = 0) Then MsgBox (tempMatMat) End If End If j = j + 1 Loop End If i = i + 1 Loop End Sub 

Answer 1

Federico，每次在外循环中循环时，都需要重置j ：

 Do While i < 12 j = 2 If (Cells(i, colArt) <> "") Then Dim tempMat As String tempMat = Cells(i, colArt)