|
こんにちは。かみちゃん です。
>規則性は前半が漢字で、文字数は決まってないです
>後半は数字で、文字数は決まってないです
それでは、以下のような感じではいかがでしょうか?
Sub Macro1()
Dim strOrg As String
Dim i As Long, x As Long
Dim Mynum(1) As String
strOrg = "日本2005"
For i = Len(strOrg) To 1 Step -1
If Not IsNumeric(Mid(strOrg, i, 1)) Then
x = i + 1: Exit For
End If
Next i
If x = 0 Then
Mynum(1) = strOrg
Else
Mynum(1) = Mid(strOrg, x)
End If
Mynum(0) = Replace(strOrg, Mynum(1), "")
MsgBox Mynum(0) & vbCrLf & Mynum(1)
End Sub
下記の過去ログを参考にしてみました。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=31984;id=excel
|
|