一致したら転記したい

投稿者 : ゴジラ     投稿日時 : 2025/03/08(Sat) 01:13:25     OS : 未指定     EXCEL : 未指定

---

ごめんなさい、初心者ですが教えてください。
シートAにある出勤時間と退勤時間が、シートBの勤時間と退勤時間が一致したら、シートAで設定した休憩時間をシートBの一致した行の休憩時間に転記したいです。
シートAの出勤時間と退勤時間が空白の場合はスキップし、次の行に行き、最終行まで実行するというようなマクロは可能でしょうか？
すいませんが、詳しいかたよろしくお願いいたします。

参考画像シートA：https://ibb.co/cS3K5hqv
参考画像シートB：https://ibb.co/sJWv4K73

投稿者 : てらてら     投稿日時 : 2025/03/08(Sat) 05:09:10

---

こんにちは。
参考にしてみてください。

Sub macro()
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    
    Set sh1 = Sheets("シートA")
    Set sh2 = Sheets("シートB")
    
    Dim i As Long, j As Long
    Dim lastRow As Long
    lastRow = sh2.Cells(Rows.Count, 1).End(xlUp).row
    
    For i = 2 To lastRow
        For j = 31 To 40
            If sh1.Cells(j, "O") <> "" And sh1.Cells(j, "P") <> "" Then
                If sh1.Cells(j, "O") = sh2.Cells(i, "E") And _
                   sh1.Cells(j, "P") = sh2.Cells(i, "F") Then
                    
                    sh1.Range("R" & j & ":U" & j).Copy sh2.Cells(i, "G")
                    Exit For
                    
                End If
            End If
            
        Next j
    Next i
    
End Sub

投稿者 : ゴジラ     投稿日時 : 2025/03/08(Sat) 11:03:15

---

教えていただきありがとうございます！
おかげさまで、解決できました！