Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20798 / 76807

←次へ　｜　前へ→


	【61422】CSVデータの日付変更

HAM - 09/5/7(木) 14:52 -


	引用なし

	パスワード

いつも勉強させていただきありがとうございます。

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

1 hits

▼

【61422】CSVデータの日付変更 HAM 09/5/7(木) 14:52

≪