EXCEl VBA

VBA　D列にC列の文字前に値を読み取りたいです（数値やハイフンなど）C列は空欄の場合D列も空欄　例えば、 C1 23-79女泳衣（4件套）　D1 23-79

No.1 回答者： fujillin 回答日時： 2024/02/01 15:10

不明点は勝手に想定。

Sub hoge()
Dim re, c
Set re = CreateObject("VBScript.RegExp")
re.Pattern = "[^0-9\-].*$"
For Each c In Cells(1, 3).Resize(Cells(Rows.Count, 3).End(xlUp).Row)
c.Offset(, 1).Value = re.Replace(c.Text, "")
Next c
End Sub