【VBA】マクロの書き方がわからない

質問

'1947.12.18
'1968.5.15
'1959.5.25
・
・
・

と文字列の入ったセルがあります。
そのセルを
1947年12月18日
1968年5月15日
1959年5月25日

と直していきたいのですすが、書き方がわかりません。
短時間でピンとひらめく方、すいませんが教えていただけないでしょうか。
よろしくお願いします。

回答No.1

sanakazu · ベストアンサー

If InStr(1, ActiveCell.Value, "'") = 1 Then
cell_data = Replace(Replace(ActiveCell.Value, "'", ""), ".", "/")
End If
Selection.NumberFormatLocal = "yyyy""年""m""月""d""日"";@"

簡単にですが・・・。

お礼

Great!!
できました！！
感謝感謝。(m_m)

回答No.2

merlionXX

A1以下に連続したデータがある場合の例です。

Sub test01()
Dim Rng As Range, c As Range
With ActiveSheet
Set Rng = .Range(.Range("A1"), .Range("A1").End(xlDown))
End With
Rng.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False
For Each c In Rng
c.Value = c.Value
Next
Rng.NumberFormatLocal = "yyyy""年""m""月""d""日"""
Rng.Columns.AutoFit
Set Rng = Nothing
End Sub

お礼

なるほど。
まだ試してみませんがすごく参考になります。
どうもありがとうございました！