在执行功能时，在我的编码中键入不匹配

Question

我的代码类型不匹配，但我不知道问题是什么。我认为这与返工工作表有关，但我不确定。难道我做错了什么？我是excel vba的新手，所以我不知道

Sub ending_test()

Z = 3
Do While Not IsEmpty(Worksheets("Raw Data").Cells(Z, 2))
  y = 4
  Do While Not IsEmpty(Worksheets("Rework").Cells(y, 1))
    If Worksheets("Raw Data").Cells(Z, 2) = Worksheets("Rework").Cells(y, 3) And
       Worksheets("Raw Data").Cells(Z, 3) = Worksheets("Rework").Cells(y, 4) And
       Worksheets("Raw Data").Cells(Z, 4) = Worksheets("Rework").Cells(y, 6) 
    Then
      Worksheets("Rework").Cells(y, 12).ClearContents
      Worksheets("Rework").Cells(y, 12) = Worksheets("Raw data").Cells(2, 7)
    End If
    y = y + 1
  Loop

  Z = Z + 1
Loop
End Sub

Answer 1

无论何时将命令拆分为单独的行，都必须通过在行的en处使用“_”来指示它。不确定是否是导致错误的原因......

所以对于你的if语句，它看起来像

If Worksheets("Raw Data").Cells(Z, 2) = Worksheets("Rework").Cells(y, 3) _
And Worksheets("Raw Data").Cells(Z, 3) = Worksheets("Rework").Cells(y, 4) _
And Worksheets("Raw Data").Cells(Z, 4) = Worksheets("Rework").Cells(y, 6) _
Then

如果您提供样本数据，那就太棒了。