如何比较不同工作表中两列的不存在的值，然后将它们复制到主工作表中？

Question

首先，我不是VBA的专家，只是寻找类似的情况来复制它们，略微更改代码并希望获得最佳效果。

所以我需要做一个比较两张纸的宏。 一张纸是在A列中包含历史信息和所有特定名称的一张纸，在另一张纸中，我粘贴了每日信息，其中特定的名称始终在C列中并从第7行开始。现有名称可能会消失或可以添加新名称，并且会有重复的名称。

我需要的代码是先比较这两列的新名称，如果找到新名称，将其复制并粘贴到历史记录表的第二列A列的第二行中，现有名称将向下移动，以使它们不会被删除。

简而言之，如果重复则什么也不做，否则复制到历史记录表。

预先感谢您的所有帮助

Answer 1

不确定您的逻辑将是什么，但是这里有一些VBA指针：

要比较不同工作表中的列：

如果Sheets（“ Sheet1”）。Range（“ ColRow”）。Value <> Sheets（“ Sheet2”）。Range（“ Col2Row2”）。Value然后...

或者，您可以用（1）和（2）[或它们在工作簿中的任何顺序]替换工作表名称。

例如：如果Sheets（1）.Range（“ A2”）。Value <> Sheets（2）.Range（“ C7”）。Value然后...

分配给单元的工作原理类似。 您可以将变量用作索引：

Dim i1 as integer
Dim i2 as integer
i2 = 7
For i1 = 1 to 50
    If Sheets(1).Range("A" + CStr(i1)).Value <> Sheets(2).Range("C" + CStr(i2)).Value Then
        Sheets(1).Range("B" + Cstr(i1)).Value = Sheets(2).Range("C" + CStr(i2)).Value
    End If

    i2 = i2 + 1
Next i1