除了在单元格中放置string，一切似乎都奏效

这个代码假设时不打印-1和0 ，
但一切工作正常。

它遍历两个列表：（ Sheet1和edi_partnere ）
并假设它退出循环。

问：我错过了什么：为什么cells().value捕获？

 Do If orgnr1 = "" Then Exit Sub Do orgnr2 = Sheets("edi_partnere").Cells(j, 1).Value If orgnr2 = orgnr1 Then Sheets("Sheet1").Cells(j, 9).Value = "-1" 'not happening Exit Do ElseIf orgnr2 = "" Then Sheets("Sheet1").Cells(j, 9).Value = "0" 'not happening Exit Do Else: j = j + 1 End If Loop i = i + 1 orgnr1 = Sheets("Sheet1").Cells(i, 1).Value Loop 

Answer 1

我认为你必须重置variablesj，所以我在你的代码中joinj = 0。

根据Siddharth Rout，如果orgnr1没有设置，则orgnr1 = Sheets（“Sheet1”）。Cells（i，1）.Value

 Do If orgnr1 = "" Then Exit Sub Do orgnr2 = Sheets("edi_partnere").Cells(j, 1).Value If orgnr2 = orgnr1 Then Sheets("Sheet1").Cells(j, 9).Value = "-1" 'not happening Exit Do ElseIf orgnr2 = "" Then Sheets("Sheet1").Cells(j, 9).Value = "0" 'not happening Exit Do Else: j = j + 1 End If Loop j = 0 i = i + 1 orgnr1 = Sheets("Sheet1").Cells(i, 1).Value Loop