如何将数据从列A列到列B中？

Question

A栏是我应该拥有的库存。 B列是我收到的清单。

我缺少很多库存，不得不手动执行此操作。 我想要的是每一列中的数字匹配以及A中存在的B中不存在的数字，以在B列中添加一个空格以表明那是缺失的：

我有的：

我想要的是：

Answer 1

这是一个非常轻量级的VBA例程，可以满足您的需要：

Sub matchCells()
    Dim colARange As Range
    Dim colACell As Range

    'Change this to your Column A range size
    Set colARange = Sheet1.Range("A1:A5000") 

    'Iterate through each cell in your Column A Range
    For Each colACell In colARange.Cells

        'Check if the cell in Column A doesn't match the cell in Column B
        If Not (colACell.Value = colACell.Offset(0, 1).Value) Then

            'It doesn't match so shift Column B's cell down one
            colACell.Offset(0, 1).Insert Shift:=xlShiftDown
        End If

        'Now we loop again and we will continue shifting Column B down
        ' a cell until it matches. 

    Next
End Sub

Answer 2

您可以在C列上尝试以下公式...应该在C列中提供所需的结果。

=IF(ISNA(VLOOKUP(A1,$B$1:$B$10,1,FALSE)),"",VLOOKUP(A1,$B$1:$B$10,1,FALSE))

$B$1:$B$10是数据范围（B列中没有行）