VBAで特定の文字から文末までを削除したい。

Question

A列には【2020年01月02日(THU)】【2020年01月03日(FRI)】...と入っています。
そのうち【日】から後ろ(文末まで)を削除したいと思っています。
上記ですと【日(THU)】【日(FRI)】までを削除するという感じです。

これを正規表現でやろうとしているのですが、うまくいきません。
エラーは起きていなく正常に動いているのですが、変化はないという感じです。

正規表現は、「日.*$」を使いました。

Dim list01 As Object
Set list01 = CreateObject("VBScript.RegExp")

For j = 2 To ws_list.Range("A" & Rows.Count).End(xlUp).Row

list01 = ws_list.Range("A" & j).Value 
list01 = Replace(list01, "日.*$", "")

正規表現以外でもやっていみたのですが、うまくいきませんでした。
なるだけなら正規表現でやりたいのですが、もしよろしければご教授頂けますと幸いです。

'list01 = Left(r, Len(r) - InStr(1, r, "日"))
'list01 = Replace(list01, Right(list01, 6), "")

Answer 1

RegExpの使い方が決定的に違います。
オブジェクトに値を入れちゃダメ(x_x)
こんな感じになるかと。

Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")
With reg
    .Pattern = "日.*$"
    .IgnoreCase = False
    .Global = True
End With

For j = 2 To ws_list.Range("A" & Rows.Count).End(xlUp).Row
    ws_list.Cells(j, 1).Value = reg.Replace(ws_list.Cells(j, 1).Value, "")
Next

Comments

[退会済みユーザー]

ありがとうございます。うまくできました。
いろいろと調べたつもりだったのですが、まだまだダメでした。
この辺り勉強したいと思います。

Answer 2

RegExpの使い方が間違っています。下記を参考に書き直してください。

【VBA入門】正規表現で文字列を抽出、置換する方法(RegExp)

あるいは、この程度なら、RegExpを使うまでもないです。

確認用コード

    Dim s As String
    s = "2020年01月02日(THU)"
    s = Split(s, "日")(0)
    MsgBox s

セル更新コード例

For j = 2 To ws_list.Range("A" & Rows.Count).End(xlUp).Row
    ws_list.Cells(j, 1).Value = Split(ws_list.Cells(j, 1).Value, "日")(0)
Next

Comments

[退会済みユーザー]

ありがとうございます。わざわざ使うまでもないんですね。勉強になります。

Answer 3

正規表現を用いて実装することも可能ですが
日付を分解して分解してjoinでつなげて
いらないものを捨てるという考え方もできますよ。
参考
DatePart関数を使って日付データを分解するという部分をぱくって
joinでつなげるというだけです。

Comments

[hatena19]

残念なことに"2020年01月02日(THU)"というように曜日まで入っているとVBAでは日付として認識してくれません。よって、Year関数とかFormat関数とかDatePart関数を使うには、曜日を削除して"2020年01月02日"にする必要があります。

[nanami12]

自分でも確認しました。曜日まで入っていると
認識されないんですね。勉強になりました。