评估两列以匹配数据

Question

我想比较两列，并说明它们是否相等。

第一列有100个数据，第二列有80个数据。在100个中，80个数据与第二列匹配。

如果第二列数据与第一列不匹配，则在第二列插入空白单元格/ 0。然后获取相同的第二列数据，并使用第一列下一个数据进行检查。

例如：

C1    C2    
1    1    
2    2    
3    4    
4    5    
5    

在上面的例子中，前两行匹配。然后在将第3行C1与C2进行比较时，没有匹配。因此，在第3行C2处插入空白单元格或0，并将第3行C2值4移动到下一行C2。然后比较第4行c1和c2。

最终结果

c1    c2    
1    1    
2    2    
3    0    
4    4    
5    5    

Answer 1

在VBA IDE中，转到工具下拉菜单并选择参考。选择＆＃34; Microstoft ActiveX数据对象2.8库。

java.lang.IllegalArgumentException: Cannot modify `installationId` property of an _Installation object.

Answer 2

你可以试试这个：

Public Sub MatchValues(rInputRange As Range)

    Dim rCell As Range

    'Initial checks
    If rInputRange.Columns.Count <> 2 Then
        MsgBox "Supply two columns as the input range"
        Exit Sub
    End If

    For Each rCell In rInputRange.Columns(1).Cells
        If rCell.Offset(0, 1) > rCell Then
            rCell.Offset(0, 1).Insert xlDown
            rCell.Offset(0, 1) = 0
        End If
    Next rCell

End Sub

您可以提供范围或当前选择：

MatchValues范围（“A1：D2”）

或

MatchRanges选择