如果不匹配，则将行从 excel 工作表复制到另一个

Question

我有一个从 SharePoint 列表填充的 Excel 工作表（“所有文档”），但也有一些包含公式的列。我在同一个工作簿（“原始”）中有另一个工作表，其中包含列表项的原始值。我需要比较这两个工作表，如果“所有文档”中的 A 列中的值在“原始”中的 A 列中不存在，则需要将该行复制到“原始”工作表中。它必须作为值粘贴。我搜索了许多论坛并尝试了许多建议，但都没有奏效。这是我最近的尝试。任何帮助将不胜感激！

Dim x As Long, y As Long, a As Long
Dim b As String
Dim rFound As Range
Dim TargetRange As Range
x = Worksheets("All Documents").Range("A" & Rows.Count).End(xlUp).Row
For a = 2 To x
    y = Worksheets("Original").Range("A" & Rows.Count).End(xlUp).Row
    b = Worksheets("All Documents").Range("A" & a)
    If a > y Then Exit For
    With Worksheets("Original").Range("A:A")
        Set rFound = .Find(b, LookIn:=xlValues)
        If rFound Is Nothing Then
           TargetRange = Worksheets("Original"1).Cells(Worksheets("Original").Rows(y + 1))
           Worksheets("All Documents").Rows(a).Copy
           TargetRange.PasteSpecial xlPasteValues
        End If
    End With
Next a

Answer 1

三件事，

1. 要设置范围，您需要：

   Set TargetRange = Worksheets("Original").Rows(y + 1)
   

2. 检查工作表是"Original"1 还是"Original"

3. 通过以下方式改进复制您的价值观：

   Worksheets("Original").Rows(y + 1).Value = _
     Worksheets("All Documents").Rows(a).Value