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

コメント

amazon 本日のタイムセール Time Sale
楽天モバイル、妻がiphone SE2、息子がiphone11で使ってます。一番安くて通信品質イマイチ
現役シリコンバレーエンジニアが教えるPython 3 入門 + 応用 動画290本28.5時間 \24,000 (毎月月初数日間は 1800円)
タイトルとURLをコピーしました