excel - 両方のシートで一致する列の値に応じて、あるシートから別のシートにセル データをコピーする

Question

フォーラムで同様の（ほぼ同じ）質問を見ました。選んだ答えはこちら。

コード：

Sub fixThis()
    Dim i As Long, j As Long, col1 As Long, col2 As Long, lastrow1 As Long, lastrow2 As Long
    Dim sheetOne As String
    Dim sheetTwo As String

    col1 = 5
    col2 = 1
    sheetOne = "Names"
    sheetTwo = "Job"
    lastrow1 = Sheets(sheetOne).Cells(Sheets(sheetOne).Rows.Count, col1).End(xlUp).Row
    lastrow2 = Sheets(sheetTwo).Cells(Sheets(sheetTwo).Rows.Count, col2).End(xlUp).Row

    For i = 2 To lastrow1
        For j = 2 To lastrow2
            If Sheets(sheetOne).Cells(i, col1).Value = Sheets(sheetTwo).Cells(j, col2).Value Then
                Sheets(sheetOne).Cells(i, 6).Value = Sheets(sheetTwo).Cells(j, 2).Value
            End If
        Next j
    Next i
End Sub

しかし、それを私の場合の答えに変える方法がわかりません。

名前の追加と削除を含む2枚のシートがあります。両方のシートの最初の列を比較したい。値が両方のシートで一致する場合、一致した値のステータス列の値をシート「追加」からシート「削除」にコピーしたいと思います。

これで私を助けてください。

Ps: 私はコーディングの初心者です。

Answer 1

VBAは必要ありません。これは、Vlookup を使用して実現できます。下の画像を参照してください。