[[20050517163119]] 『数値の取り出しについて』(rie) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『数値の取り出しについて』(rie)
お世話になります。
現在、一つのセルに名前と数字が一緒に入っているデータがあるのですが、そのセルから数字だけを取り出したいのです。何かいい方法はないでしょうか??
    
例と致しましては、

      1      2 ・・・・・
A ニホンタロウ19541120

B ニホンハナコ19750426
    ・
    ・
    ・

と、このような感じです。どうぞよろしくお願いします。


 右側は8桁の数値と決まっているなら、=--RIGHT(A1,8) でいけますが。

 (川野鮎太郎)

 =LOOKUP(10^17,--RIGHT(A1,ROW(1:16)))
 とかも。
[[20050316160207]]
 (ひよっぴ)

[[20040629091848]]
 元はこれのようです。
 (ひよっぴ)

 ユーザー関数の押し売り
 標準モジュールに下のコードをコピペ
 =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.