Sub 転記()
Dim LastRow As Long
Dim i As Long
' Sheet1の最終行を取得
LastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
' データ転記
For i = 2 To LastRow ' 1行目はヘッダーとしてスキップ
' Sheet1からSheet2へ値のみ転記
Sheets("Sheet2").Cells(i, 3).Value = Sheets("Sheet1").Cells(i, 1).Value ' Sheet1のA列からSheet2のC列へ
Sheets("Sheet2").Cells(i, 5).Value = Sheets("Sheet1").Cells(i, 2).Value ' Sheet1のB列からSheet2のE列へ
Sheets("Sheet2").Cells(i, 6).Value = Sheets("Sheet1").Cells(i, 3).Value ' Sheet1のC列からSheet2のF列へ
Sheets("Sheet2").Cells(i, 7).Value = Sheets("Sheet1").Cells(i, 4).Value ' Sheet1のD列からSheet2のG列へ
Sheets("Sheet2").Cells(i, 8).Value = Sheets("Sheet1").Cells(i, 5).Value ' Sheet1のE列からSheet2のH列へ
Sheets("Sheet2").Cells(i, 15).Value = Sheets("Sheet1").Cells(i, 6).Value ' Sheet1のF列からSheet2のO列へ
Sheets("Sheet2").Cells(i, 52).Value = Sheets("Sheet1").Cells(i, 7).Value ' Sheet1のG列からSheet2のAZ列へ
' Sheet1のセルO2の日付をYYYY/MM/DD形式の文字列に変換して転記
Sheets("Sheet2").Cells(i, 13).Value = Format(Sheets("Sheet1").Cells(2, 15).Value, "YYYY/MM/DD")
Sheets("Sheet2").Cells(i, 18).Value = Sheets("Sheet1").Cells(i, 10).Value ' Sheet1のJ列からSheet2のR列へ
Next i
' 書式のクリア
'Sheets("Sheet2").Cells.NumberFormat = "@"
End Sub
