シート1への他のシートからの転記の方法

VBA初心者です。
会社の仕事でVBAを触っているのですが、下記の(シート1に日付と社員番号転記)の部分だけが分かりません。
どのようにすれば良いのかVBAを初めていじる人間には難解です。
どなたか良いアドバイスをお願い致します。

SUB 完全一致検索 ( )

Do Until Cells(row1 , 1) = ""
Do Until Cells(row2, 1) = ""
If cells(row1, 1) = cells(row2, 6) and cells(row1, 2) = cells(row2, 7) then
（シート１に日付と社員番号転記）
End If
row2 = row2 + 1
Loop
row1 = row1 + 1
loop Do Until Cells(row1 , 1) = ""
Do Until Cells(row2, 1) = ""
If cells(row1, 1) = cells(row2, 6) and cells(row1, 2) = cells(row2, 7) then
（シート１に日付と社員番号転記）
End If
row2 = row2 + 1
Loop
row1 = row1 + 1
loop

End Sub

No.1 ベストアンサー 回答者： t_fumiaki 回答日時： 2022/01/18 14:36

これじゃ誰も解りませんね。

シート１はどう定義されてるか？
転記：どのシートのどのセルをどこのセルに転記？
例えばシートがsh1と定義してあり、日付が1行1列で、転記元が現在のアクティブシートのシート2行2列なら

sh1.cells(1,1)=cells(2,2)

この回答へのお礼

ご指摘とアドバイスありがとうございます。
最初式全文を載せようとしたら文字数がオーバーしてしまいまして、端折ってしまいました。
確かに分からないですよね。
もうちょっと工夫して再度上げたいと思います。
本当にありがとうございます。

お礼日時：2022/01/18 14:54