Sub 日変換1()
Dim 行 As Long
Dim i As Long
 行 = Cells(Rows.Count, 1).End(xlUp).Row　'A列の空白でない最終行
For i = 2 To 行

    Sheets("入荷データ").Select
    Range("A1").Select

 Cells(i, 1).NumberFormatLocal = "@"　　'文字に変換
Next i

For i = 2 To 行
 Cells(i, 2).NumberFormatLocal = "@"
Next i
For i = 2 To 行
 Cells(i, 3).NumberFormatLocal = "@"
Next i
    Columns("H:J").Select
    Selection.NumberFormatLocal = "yyyy/m/d"　　'数値を日付に変換
    Range("H1").Select
For i = 2 To 行
    Sheets("住所データ").Select
    Range("A1").Select
 Cells(i, 1).NumberFormatLocal = "@"
Next i

End Sub