エクセルの文字列検索で何番目の＄の位置？

質問

たとえば、$A$1:$AG$25とか$AB$100:$AG$2550という文字列から、

１．文字列末尾の数値を取得する関数はあるでしょうか？
２．３番目の$の位置、４番目の$の位置を取得できる関数はあるでしょうか？

回答No.3

moooon · ベストアンサー

設問の$A$1:$AG$25とか$AB$100:$AG$2550のように、セル範囲をあらわす文字列に限っているのであれば、必ず出現する　：　を利用して

3番目=FIND("$",A1,FIND(":",A1,1))

4番目=FIND("$",A1,FIND(":",A1,1)+2)

したがって、末尾の数字は

=MID(A1,FIND("$",A1,FIND(":",A1,1)+2)+1,5)

または

=RIGHT(A1,LEN(A1)-FIND("$",A1,FIND(":",A1,1)+2))

セル範囲をあらわす文字列以外の場合はちょっとわかりません。

お礼

なるほど、これはすばらしい方法ですね。
ありがとうございます。

回答No.8

imogasi

#7です。
＞３番目の$の位置、
値でよければ、
＃７のコードの
ld = s(UBound(s))
を
ld = s(2)　と変えると３番目の「数値」が取れます。
字数であればS(0)からS（２)の文字数の和＋３のコードを作ると、
出せる（判る）でしょう
ーーー
１．の質問に対し、別の解
=RIGHT(A1,LEN(A1)-MAX(IF(MID($A1,ROW(A1:A20),1)="$",ROW(A1:A20),0)))
を入れて、SHIFT+CTRL+ENTERを押す。
全体文字数を２０以下（A20がそれ）に仮定してます。

お礼

ありがとうございます。

回答No.7

imogasi

ユーザー関数を使うと２行のコードですみます。
シートでは関数的感覚で、その関数名が使えます。
標準モジュールに
Function ld(a)
s = Split(a, "$")
ld = s(UBound(s))
End Function
を貼り付けます。ldの部分（関数名）は既存関数以外の、勝手な英字の名前でよいです。
例データとして
A1:A2　に
$AB$100:$AG$2550
$A$1:$AG$25
B１に式 =ld(A1) と入れてB2にも式を複写します。ldは関数名と合わせること。
結果　B1:B2
2550
25

お礼

imogasiさん、いつもありがとうございます。

回答No.6

mshr1962

#4のmshr1962です。
１．の質問の答えを忘れてました。
セルの内容が範囲を示す文字列なら
=ROWS(INDIRECT(A1))+ROW(INDIRECT(A1))-1

お礼

ご丁寧にありがとうございます。

回答No.5

noname#204879

》 １．文字列末尾の数値を取得する関数はあるでしょうか？

「…という文字列」がセル A1 にあると仮定すれば、セル B1、C1 にそれぞれ次式を入力してみてください。
B1: =MID(A1,FIND(":",A1)+1,99)
C1: {=MID(B1,MATCH(TRUE,ISNUMBER(1*MID(B1,ROW(INDIRECT("1:"&LEN(B1))),1)),0),99)*1}
　　(配列数式)

お礼

ありがとうございます。

回答No.4

mshr1962

セルに入力された値が、数式でなければ検索は不可能ではありませんが
それ以外の場合はVBAですね。

=FIND("$$",SUBSTITUTE(A1,"$","$$",3))
上記の式はSUBSTITUTE関数の最後の引数3が順番で3番目の$を$$に変えて、
他の$と区分けした状態でFIND関数で位置を検索してます。

お礼

これはスマートですね。
何番目に出てくる＄を置換できるSUBSTITUTE関数があるのにFINDもSERCHも検索開始位置しか指定できないのはどうしてなんでしょうねえ。
ありがとうございます。

回答No.2

misatoanna

マクロのユーザー関数です。
[Alt]+[F11] で表示される画面の [挿入]-[標準モジュール] に、以下をコピーして
ください。

Function FindChar(R, C, N)
　Dim i, F
　　For i = 1 To Len(R)
　　　If Mid(R, i, 1) = C Then F = F + 1
　　　If F = N Then
　　　　FindChar = i
　　　　Exit Function
　　　End If
　　Next
　FindChar = 0
End Function

=FindChar(R,C,N)　の形式で入力します。
R:セル(単一)、C:検索文字列、N:何番目に現われる検索文字か　です。

お礼

ありがとうございます。
すごいですね。
ただ、今回はワークシート関数の応用でと考えておりました。

回答No.1

hana-hana3

お望みの関数はありません。
　ＶＢＡでなら可能です。

質問の目的はなんでしょうか？
ＶＢＡ中の処理方法ですか？

お礼

ワークシート関数を知りたかったのです。
ありがとうございます。