数字+英字ならVal()を使うと数字部分だけ取れる
Sub Sample1() MsgBox Val("123ABC") End Sub
英字+数字ならひっくり返してから数字部分だけとり、Replaceで数字部分だけ消しちゃう
dim moji moji = "ABC123" MdgBox Replace(moji, StrReverse(Val(StrReverse(moji))), "")
数字+英字ならVal()を使うと数字部分だけ取れる
Sub Sample1() MsgBox Val("123ABC") End Sub
英字+数字ならひっくり返してから数字部分だけとり、Replaceで数字部分だけ消しちゃう
dim moji moji = "ABC123" MdgBox Replace(moji, StrReverse(Val(StrReverse(moji))), "")