エクセル VBA 条件が一致した場合の表記

質問

エクセルの初心者です。

どうかご指導ください。

sheeｔ1のC列に名前がランダムで入力されていて

sheet2のＦ列にも名前がランダムに入力されています。

sheet1のＣ列にsheeｔ2のＦ列に同じ名前のものがあった場合

同じ名前があったsheet１の行のG列に

同じ名前があったsheet2の行のＨ列に入力されているものを入力できるような

マクロを作りたいのですが教えて頂けないでしょうか

回答No.1

tom04 · ベストアンサー

こんにちは！
一例です。
1行目はタイトル行でデータは2行目以降にあるとします。

画面左下のSheet1のSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub test()
Dim i As Long, k As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If WorksheetFunction.CountIf(ws.Columns(6), Cells(i, 3)) Then
k = WorksheetFunction.Match(Cells(i, 3), ws.Columns(6), False)
Cells(i, 7) = ws.Cells(k, 8)
End If
Next i
End Sub

こんな感じではどうでしょうか？m（_ _）m

お礼

ありがとうございました。

思っていたことができました。