Excel VBA質問箱 IV

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

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


20729 / 76738 ←次へ | 前へ→

【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 質問
【61423】Re:CSVデータの日付変更 Jaka 09/5/7(木) 16:14 発言
【61426】Re:CSVデータの日付変更 HAM 09/5/7(木) 17:19 お礼
【61424】Re:CSVデータの日付変更 ひつまぶし 09/5/7(木) 16:37 回答
【61427】Re:CSVデータの日付変更 HAM 09/5/7(木) 17:19 お礼

20729 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free