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
現役シリコンバレーエンジニアが教えるPython 3 入門 + 応用 動画290本28.5時間 \24,000(実購入は\1,890でした)
携帯2台持ちを1円で解決 早くしとけばよかった。
コロナ感染施設の人体に無害な消毒と抗菌処理ならESS消毒社(東京都)
タイトルとURLをコピーしました