質問: 行 + 1 loop end sub
回答: こんばんは! 関数だけでできそうですが・・・ vbaをご希望のようなので、一例です。 a列は必ず8桁の数値だという前提で、 sub test() dim i as long for i = 2 to cells(rows.count, 1).end(xlup).row with cells(i, 2) .value = mid(cells(i, 1), 1, 4) & "/" & mid(cells(i, 1), 5, 2) & _ "/" & mid(cells(i, 1), 7, 2) .numberformatlocal = "m/d" '←月日を二桁表示にしたい場合は "mm/dd" に変更 end with next i end sub こんな感じではどうでしょうか? 的外れならごめんなさいね。m(__)m