vba文字と数字を分ける

文字と数字を分ける

千代田区千代田1-1-1を千代田区千代田と1-1-1で分ける

=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A1)&1234567890))-1)

=RIGHT(A1,LEN(A1)-MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A1)&1234567890)-1))

=RIGHT(A1,LEN(A1)-LEN(B1)) でも良い

セルに数式を表示する関数

Function 数式表示(Rng As Range) As String
　数式表示 = Rng.Formula
End Function