Question

此代码在假设时不会打印-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

我认为你必须重置变量j，所以我在代码中添加j = 0。

根据Siddharth Rout，如果没有设置orgnr1那么orgnr1 = Sheets（＆＃34; Sheet1＆＃34;）。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

除了在单元格中放置字符串外，一切似乎都有效

1 个答案: