excel - 在代码中键入不匹配，但今天早些时候运行正常

Question

我一直在为我工作的车间（机械车间）开发这个工具库存系统。

今天早些时候一切正常，几乎一切都在运行，只是花一些时间调试和清理。突然就不行了。我不记得我没有在这个领域工作，但不知何故我遇到了类型不匹配。我迷路了。

我得到一个不匹配的类型if activecell.value <> x then。

Sub createOrder_BTN()
  Dim x As String
  Dim found As Boolean
  Dim lRow As Long
  
  Application.ScreenUpdating = False
  
  Worksheets("Orders").Activate
  Worksheets("Orders").Range("A4").Activate
  
  'change to master sheet
  Worksheets("Master").Activate
    
  ' Select first line of data.
  Range("U3").Select
  
  ' Set search variable value.
  x = ""
  
  ' Set Boolean variable "found" to false.
  found = False

  ' Set Do loop to stop at empty cell.
  Do Until IsEmpty(ActiveCell)
    ' change to master sheet
    Worksheets("Master").Activate
        
    ' Check active cell for search value.
    If ActiveCell.Value <> x Then
      found = True
      'MsgBox "Value found in cell " & ActiveCell.Address
      ActiveCell.EntireRow.Copy
      Worksheets("Orders").Activate
      lRow = Cells.Find(What:="", _
              After:=Range("A4"), _
              LookAt:=xlPart, _
              LookIn:=xlFormulas, _
              SearchOrder:=xlByColumns, _
              SearchDirection:=xlPrevious, _
              MatchCase:=False).Row
      ActiveCell.Offset(1).Select
      ActiveCell.PasteSpecial
    End If
         
    ' change to master sheet
    Worksheets("Master").Activate
    
    ' Step down 1 row from present location.
    ActiveCell.Offset(1, 0).Select
  Loop

  Application.ScreenUpdating = True
  
  Worksheets("Orders").Activate
End Sub

标签： excelvba