文字と数値が混在する文字列で先頭のn文字のみ切り出す関数

Question

おせわになっています

ＡＭ２３１５６
ＡＢ０１５６７
Ｃ１５５９０１
Ｍ５５６３４８
ＢＤ６５４７８

このような文字列データがあるのですが
先頭がアルファベット１文字の場合その文字のみを
アルファベット２文字の場合その２文字を切り出したいのです

Ｃ１５５９０１の場合「Ｃ」のみを取り出す
ＡＭ２３１５６の場合「ＡＭ」を取り出す

このようにする関数を教えて下さい
ＬＥＦＴ関数で取り出すのまではわかるのですが
その後をどのようにするのか
見当がつきません

win ＸＰ　エクセル2003

BLUEPIXY · Accepted Answer

#3>単にＡ１にあるデータがそのまま表示されるだけです。
Ａ１にある数字が半角なら
=LEFT(A1,MIN(FIND({"0","1","2","3","4","5","6","7","8","9"},A1&"0123456789"))-1)
としてみて下さい。

zap35 · Answer

VBAで実現するなら以下のマクロになります。ユーザ定義関数にしましたので
　=AZout(A1)
のように入力すれば、先頭の全角英文字列のみを抽出します。

マクロはALT＋F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。

Function AZout(ByVal Target As Range) As String
　Dim RE, strPattern, repPattarn, trgStr As String
　Dim mchItem
　Set RE = CreateObject("VBScript.RegExp")
　strPattern = "^[Ａ-Ｚ,ａ-ｚ]+"
　On Error Resume Next
　With RE
　　.Pattern = strPattern       ''検索パターンを設定
　　.IgnoreCase = True          ''大文字と小文字を区別しない
　　.Global = True              ''文字列全体を検索
　　Set mchItem = .Execute(Target.Value)
　　If mchItem.Count > 0 Then
　　　　AZout = mchItem(0).Value
　　End If
　End With
　Set RE = Nothing
End Function

zap35 · Answer

＃０１です。
先頭の全角、半角混在文字列を抽出するようにしました。　関数名は　AZout2　に変更しています。

＞既存の関数式を使用する場合
とはどのような意味か十分には理解できていませんが、私のＰＣ環境では1250行を一括で処理して再計算に10秒くらいかかりました。目安にして下さい。

Function AZout2(ByVal Target As Range) As String
    Dim RE, strPattern, repPattarn, trgStr As String
    Dim mchItem
    Set RE = CreateObject("VBScript.RegExp")
    strPattern = "^[Ａ-Ｚ,A-Z]+"
    On Error Resume Next
    With RE
        .Pattern = strPattern  
        .IgnoreCase = True        
        .Global = True           
            Set mchItem = .Execute(Target.Value)
            If mchItem.Count > 0 Then
                AZout2 = mchItem(0).Value
            End If
    End With
    Set RE = Nothing
End Function

BLUEPIXY · Answer

Ａ１にデータが有る場合
=LEFT(A1,MIN(FIND({"０","１","２","３","４","５","６","７","８","９"},A1&"０１２３４５６７８９"))-1)
みたいな感じで
数字に半角数字がある場合は、追加して下さい。

BLUEPIXY · Answer

#4>この配列関数をコピーするにはどうすればよかったでしょうか
この場合、普通にコピーすればいいです。

zap35 · Answer

＃０１です
＞＃ＮＡＭＥ？になって思い通りに結果が出ません
そうですか。私の環境では動きましたが…

＃０１と＃０２の変更点は以下の１行のみです。
strPattern = "^[Ａ-Ｚ,A-Z]+"

この行だけ差し替えて下さい

zap35 · Answer

＃０１です。先頭に英文字（全角半角混在可、大文字小文字混在可）以外の文字が入っていると結果は空白になりますが、そんなことはありませんか？

確認のため　=AZout(A1)　を入力したときに、必ず何らかの文字列が返るようにしてみました。これでも空白の結果になるようなら、ユーザ関数が起動されていない可能性が高いです。

その時はマクロを一旦全部削除してもう一度ペーストした上で、再度ユーザ関数式を入力してみてください。

Function AZout(ByVal Target As Range) As String
Dim RE, strPattern, repPattarn, trgStr As String
Dim mchItem
　Set RE = CreateObject("VBScript.RegExp")
　strPattern = "^[Ａ-Ｚ,A-Z]+"
　On Error Resume Next
　With RE
　　.Pattern = strPattern       ''検索パターンを設定
　　.IgnoreCase = True          ''大文字と小文字を区別しない
　　.Global = True              ''文字列全体を検索
　　Set mchItem = .Execute(Target.Value)
　　If mchItem.Count > 0 Then
　　　AZout = mchItem(0).Value
　　Else　　'確認用に行追加
　　　AZout = "×Not hit"　　'確認用に行追加
　　End If
　End With
　Set RE = Nothing
End Function

原因が判明したら
　Else
　　AZout = "×Not hit"
の二行は削除してください。

文字と数値が混在する文字列で先頭のn文字のみ切り出す関数

VBAで実現するなら以下のマクロになります。

この回答への補足

＃０１です。

Ａ１にデータが有る場合

#3>単にＡ１にあるデータがそのまま表示されるだけです。

#4>この配列関数をコピーするにはどうすればよかったでしょうか

この回答への補足

＃０１です

＃０１です。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング