ＶＢＡ 数値のみ取り出す

いつもお世話になっております。
下記のコードの書き出しのところで
おしえてくれませんでしょうか
Ａ列に数値と文字列が混じっている
セルを数値だけをＢ列に
文字列をＣ列にやりたいのですが、

エラーになります。
Dim re As Object
Set re = CreateObject("VBScript.RegExp")

Dim mc As Object, str As String
Dim m As Object


For Each m In Range("A1:A10")
re.Pattern = "\d*"
re.ignorecase = False
re.Global = True
Next

str = m.Value

質問者からの補足コメント

• B列には数値
  Ｃ列には文字列

  No.2の回答に寄せられた補足コメントです。 補足日時：2021/02/17 09:04

• 

  データ群
  A001
  bB002
  A002
  bB003
  A003
  bB004
  A004
  bB005
  
  できれば日付の月日以外も取り出したい。
  2月25日
  2月26日
  2月27日
  2月28日
  3月1日
  3月2日
  3月3日

  No.1の回答に寄せられた補足コメントです。 補足日時：2021/02/17 09:05

• 

  まぁ～、数字か否かで良いのかな？と感じます。
  こちらで大丈夫です。
  すみませんです。

  No.3の回答に寄せられた補足コメントです。 補足日時：2021/02/17 09:16

• 

  2月25日　→225 としてたです。
  2021年02月25日の場合➔20210525

  No.4の回答に寄せられた補足コメントです。 補足日時：2021/02/17 09:32

No.7 ベストアンサー 回答者： tatsumaru77 回答日時： 2021/02/17 10:14

No6です。

Ｂ列の初期設定を文字列にしないと１になってしまいます。
は
Ｂ列の書式設定を文字列にしないと１になってしまいます。
の誤りでした。（次の初期設定も同様）訂正します。

この回答へのお礼

ご丁寧にありがとうございます。

お礼日時：2021/02/17 10:35

No.6 回答者： tatsumaru77 回答日時： 2021/02/17 09:45

以下のようにしてください。

A001か数字をとりだすと001になりますが、
Ｂ列の初期設定を文字列にしないと１になってしまいます。
００１を表示するために、意図的にＢ列の初期設定を文字列にしています。

Sub Macro1()
Dim m As Range
Dim str1 As String
Dim str2 As String
Dim RE As Object
Set RE = CreateObject("VBScript.RegExp")
str1 = "\D"
str2 = "\d"
RE.Global = True
For Each m In Range("A1:A10")
RE.Pattern = str1
m.Offset(0, 1).NumberFormatLocal = "@"
m.Offset(0, 1).Value = RE.Replace(m.Text, "")
RE.Pattern = str2
m.Offset(0, 2).Value = RE.Replace(m.Text, "")
Next
End Sub

この回答へのお礼

ありがとうございます。
難しいですね
一筋縄ではいかないんですね

お礼日時：2021/02/17 09:51

No.5 回答者： めぐみん_ 回答日時： 2021/02/17 09:22

補足の

＞できれば日付の月日以外も取り出したい。

って受け取れる内容はいくつかありますけど？
・年月日から〇年と〇月〇日にする
・文章内から『数字』『数字以外』『〇月〇日』に分ける
など。

No.4 回答者： tatsumaru77 回答日時： 2021/02/17 09:13

2月25日は

Ｂ列：225
C列：月日
となれば良いのでしょうか。

又、これは、実際にはシリアル日付(2021/2/25)が設定され、
書式設定で2月25日と表示していると理解しましたが、あってますか。

No.3 回答者： めぐみん_ 回答日時： 2021/02/17 08:52

No.1です。

私が気になるデータとしては
AAA123AAA123AAA
をどう振り分けるのかな？って感じです。

PS.
文字列をＣ列にってのはちょっと・・・
数字も文字列ですしデータ全部をＣ列に移動ってなります。
ちょっと細かすぎましたかね。
まぁ～、数字か否かで良いのかな？と感じます。

No.2 回答者： tatsumaru77 回答日時： 2021/02/17 08:31

添付図のような場合、Ｂ列とＣ列はなにが設定されますか。

Ｂ１：
Ｂ２：
Ｂ３：
Ｂ４：
Ｃ１：
Ｃ２：
Ｃ３：
Ｃ４：
はどうなりますか。

No.1 回答者： めぐみん_ 回答日時： 2021/02/17 08:28

どのようなデータを扱うのかわかりませんので、Patternをどう決めるかはその内容次第ではあります。

ところで、

For Each m In Range("A1:A10")
re.Pattern = "\d*"
re.ignorecase = False
re.Global = True
Next

ループ内で正規表現の設定を何度もおこなっても意味ないですよね？
設定の書き換えが繰り返されるだけで、目的としている事には一切触れてませんし。

まずはどんなデータ群があり得るのかで変わるかも？