Excel VB搜索功能找不到号码

Question

我正在使用搜索功能来比较数据，以查看工作表中是否存在标识符，但是如果它的数字不通过VB脚本找到它，如果我手动找到它，它会发现它很好..这是令人难以置信的。

以下代码位于循环中，该循环覆盖一张工作表中的每个SKU ID以查看它是否存在于另一张工作表中。 （如果有更好的方法可以让我知道） 如果没有找到sku，它会将它添加到表单中，因为它通过vb脚本找不到它，即使它已经存在存在...让我知道如果这没有意义，我会试着重申。一个SKU总是独一无二的

Sheets(productsheet).Select 
     On Error Resume Next 
     Cells.Find(What:=sku, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False).Activate 

     If Err.Number <> 0 Then 
      newSKU = newSKU + 1 
      Range("A" & CurrentRow).Select 
      ActiveCell.Value = trimmedSku 
      ActiveCell.Font.Color = red 
      With Selection 
       .HorizontalAlignment = xlLeft 
       .VerticalAlignment = xlTop 
       .WrapText = True 
       .Orientation = 0 
       .AddIndent = False 
       .IndentLevel = 0 
       .ShrinkToFit = False 
       .ReadingOrder = xlContext 
       .MergeCells = False 
      End With 

      Range("B" & CurrentRow).Select 
      ActiveCell.Value = skudescription 
      With Selection 
       .HorizontalAlignment = xlLeft 
       .VerticalAlignment = xlTop 
       .WrapText = True 
       .Orientation = 0 
       .AddIndent = False 
       .IndentLevel = 0 
       .ShrinkToFit = False 
       .ReadingOrder = xlContext 
       .MergeCells = False 
      End With 

      Range("D" & CurrentRow).Select 
      ActiveCell.Value = sku 
      With Selection 
       .HorizontalAlignment = xlLeft 
       .VerticalAlignment = xlTop 
       .WrapText = True 
       .Orientation = 0 
       .AddIndent = False 
       .IndentLevel = 0 
       .ShrinkToFit = False 
       .ReadingOrder = xlContext 
       .MergeCells = False 
      End With 

      Range("I" & CurrentRow).Select 
      ActiveCell.Value = 1 

      Range("K" & CurrentRow).Select 
      ActiveCell.Value = cost 

      Range("L" & CurrentRow).Select 
      ActiveCell.Value = price 

      Range("M" & CurrentRow).Select 
      ActiveCell.Value = price 

      Range("O" & CurrentRow).Select 
      ActiveCell.Value = "Y" 

      Range("P" & CurrentRow).Select 
      ActiveCell.Value = "N" 

      Range("Q" & CurrentRow).Select 
      ActiveCell.Value = "Y" 

      Range("AI" & CurrentRow).Select 
      ActiveCell.Value = 1 

      CurrentRow = CurrentRow + 1 
     Else 
      'Skip because it was found 
     End If 

Answer 1

没有必要选择或激活任何东西来做你想做的。由于您的一些查找参数，您可能无法找到该值，但我会首先重写代码以避免更改工作表。类似于

Dim sh As Worksheet 
Dim rFound As Range 

Set sh = ThisWorkbook.Sheets("productsheet") 

Set rFound = sh.Cells.Find(sku, , xlValues, xlPart) 

If rFound Is Nothing Then 
    Set rNext = sh.Cells(sh.Rows.Count, 1).End(xlUp).Offset(1, 0) 
    rNext.Value = trimmedsku 
    rNext.Offset(0, 1).Value = skudescription 
    rNext.Offset(0, 3).Value = sku 
    rNext.Offset(0, 8).Value = 1 
    rNext.Offset(0, 10).Value = cost 
    rNext.Offset(0, 11).Value = price 
    rNext.Offset(0, 12).Value = price 
    rNext.Offset(0, 14).Value = "Y" 
    rNext.Offset(0, 15).Value = "N" 
    rNext.Offset(0, 16).Value = "Y" 
    rNext.Offset(0, 34).Value = 1 
End If 

如果rFound出现Nothing（sku未找到）并且它不应该是，那么请确保Find的参数是正确的。你想看看xlFormulas还是xlValues？整体或部分？

我在查找参数中没有看到任何会使其更具限制性的东西，所以我无法给你任何关于要更改哪些参数的具体建议。也许你可以做一个新的测试程序，类似于我发布的内容，并查看是否不改变工作表的帮助。