CSVファイルには書式設定が標準で「20090423」と入力されていますが
これを日付型の「2009/4/23」へ変換したいのですがどうすればいいでしょうか?
現在は
With Columns(1)
.Replace what:="200809", Replacement:="2008/09/", LookAt:=xlPart
.Replace what:="200810", Replacement:="2008/10/", LookAt:=xlPart
.Replace what:="200811", Replacement:="2008/11/", LookAt:=xlPart
.Replace what:="200812", Replacement:="2008/12/", LookAt:=xlPart
.Replace what:="200901", Replacement:="2009/01/", LookAt:=xlPart
.Replace what:="200902", Replacement:="2009/02/", LookAt:=xlPart
End With
とやっていますが量が多くて追いつけません。
ご教授よろしくお願いします。
No.2
- 回答日時:
二例ほど
Sub test1()
Dim i
Dim myDate
i = 20090423
myDate = Left(i, 4) & "/" & Mid(i, 5, 2) & "/" & Right(i, 2)
MsgBox myDate
End Sub
Sub test2()
Dim i
Dim myDate
i = 20090423
myDate = Evaluate("TEXT(DATE(LEFT(" & i & ",4),MID(" & i & ",5,2),RIGHT(" & i & ",2)),""yyyy/mm/dd"")")
MsgBox myDate
End Sub
No.3ベストアンサー
- 回答日時:
こんばんは。
区切り位置の回答が出ていますので、こちらもマクロの処理を出します。A列を対象とした場合です。
Sub Test1()
For Each c In Range("A1", Range("A65536").End(xlUp))
If IsNumeric(c.Value) And Len(c.Value) > 5 Then
c.Value = Format(c.Value, "00""/""00""/""00")
End If
Next c
End Sub
Sub Test2()
Range("A1", Range("A65536").End(xlUp)).TextToColumns _
DataType:=xlDelimited, _
FieldInfo:=Array(1, 5)
End Sub
書式は任意で処理してください。マクロで入れる場合は、その都度変更するのではなく、一括で書式を入れてください。メモリの負担が少ないです。
Test1 は、処理のコードを
Application.ScreenUpdating = False
Application.ScreenUpdating = True
で、はさんだほうが良いかもしれません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel vba で1と10を正確に判断させる方法を教えてください。 TからU列に1と入力があれば 3 2022/12/26 16:54
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) マクロで特定日より1日前の日を求めたい 6 2022/05/08 09:23
- Visual Basic(VBA) findメソッドの変数について 6 2023/06/23 08:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで文字が白くなる
-
Excelで、空白を表示したい
-
エクセルで文字を含む式に、カ...
-
アクセスで#エラーを表示させ...
-
エクセルで、時間 0:00を表示...
-
エクセル条件付書式で指定の時...
-
Access ¥マークを表示しない
-
小数点以下の数字だけ小さいフ...
-
excelの軸
-
エクセルの書式設定が解除でき...
-
エクセルの表示が ‐(ハイフン...
-
エクセル マイナスは黒文字で、...
-
Excel2007のピボットの行について
-
Excelのテーブルでセルの書式設...
-
EXCELで表以外を空白にしたい
-
エクセルで上付き,下付き文字...
-
エクセル(2003) 「1900/1/0...
-
エクセルでゼロ「0」が「-」に表示
-
エクセルでコメントの書式を一...
-
today関数で日付を全角文字で表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで文字が白くなる
-
エクセル条件付書式で指定の時...
-
エクセルで文字を含む式に、カ...
-
Excelで、空白を表示したい
-
エクセルで、時間 0:00を表示...
-
アクセスで#エラーを表示させ...
-
エクセル(2003) 「1900/1/0...
-
excelの軸
-
エクセルの書式設定が解除でき...
-
Excelのテーブルでセルの書式設...
-
小数点以下の数字だけ小さいフ...
-
today関数で日付を全角文字で表...
-
エクセル マイナスは黒文字で、...
-
エクセルで合計
-
Access ¥マークを表示しない
-
エクセルでゼロ「0」が「-」に表示
-
Excelで小数部が勝手に繰上げさ...
-
エクセルで上付き,下付き文字...
-
エクセルで「0(ゼロ)」を印...
-
強調の・
おすすめ情報