|
いつも勉強させていただきありがとうございます。
CSVから読み込んだファイルにて
全てが文字列表記になっており
G列に210315や210501のように記載されています。
このG列に入っている値は必ず6桁です
平成21年3月15日という意味になるのですが
これを西暦表記の
2009/03/15に変更したく
下記のMacroを用意しました
これでも問題はないのですが
もっとうまく纏める方法があればと思いました。
ご教授お願い致します。
With Range(Cells(1, 1), ActiveCell.SpecialCells(xlLastCell))
.NumberFormat = "General"
.FormulaLocal = .FormulaLocal
End With
Columns("G:G").Insert Shift:=xlToRight
For R = 1 To Cells(Rows.Count, 8).End(xlUp).Row
Cells(R, 7) = "=DATE(LEFT(RC[1],2)+1988,MID(RC[1],3,2),RIGHT(RC[1],2))"
Next R
Columns("G:G").Copy
Columns("G:G").PasteSpecial Paste:=xlPasteValues
Columns("H:H").Delete Shift:=xlToLeft
|
|