[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『数値の取り出しについて』(rie)
1 2 ・・・・・ A ニホンタロウ19541120
B ニホンハナコ19750426
・
・
・
と、このような感じです。どうぞよろしくお願いします。
右側は8桁の数値と決まっているなら、=--RIGHT(A1,8) でいけますが。
(川野鮎太郎)
=LOOKUP(10^17,--RIGHT(A1,ROW(1:16))) とかも。 [[20050316160207]] (ひよっぴ)
元はこれのようです。 (ひよっぴ)
ユーザー関数の押し売り 標準モジュールに下のコードをコピペ =rie(A1)といった塩梅に使うてくらはい。 桁数は問わない、全角半角OK,39291花子など逆でもOKデス。 (弥太郎) '----------------------------------------------- Function rie(data) Dim i As Integer
data = StrConv(data, vbNarrow) If Val(data) > 0 Then ' rie = Val(data) Else For i = 1 To Len(data) If IsNumeric(Mid(data, i, 1)) Then rie = (Right(data, Len(data) - i + 1)) * 1 Exit For End If Next i
End If End Function
関数名を変更 (弥太郎)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.