Excelでカンマやハイフンでの区切り文字について

質問

例えば下の画像のようにB列に、「,」、「-」、「=」で区切られた数字があります。
E列にセル「E1」で指定した数字が、左から何番目にあるかを表示するにはどういった式を書けばよろしいでしょうか。
例えば、画像ではB2では、「10」は左から4番目にあるので、E2は「4」と出るようにしたいのです。
ここで問題は、（）で囲まれている箇所は同順という事になります。
なので、B3では「10」は()内にあるので左から2番目になります。括弧以外は順番通りです。
数字は必ず１～１８の2桁の間になります。作業列も可です。
B列に文字列を貼り付けると自動で指定した数字の左からの順番が出るようにしたいので、アドバイスよろしくお願いしますm(_ _)m

画像
ttp://www.poverty.jeez.jp/ura/img/kenmou01024.png

回答No.3

MarcoRossiItaly · ベストアンサー

No.2 です。すみません、No.2 のコードでは、文字列中で「指定」した数よりも前と後ろにそれぞれ ( ) が登場する場合に、正しく計算できないことが分かりました。下のコードに差替えをお願いいたします。

変更点は、変数 y をなくして y1 と y2 を設置し、「If x > 1 Then」以下を少し修正しました。

なおこのコードであっても、「二重の」( ) には対応していません。1,((2,3),4),5 などのことです。

Function OON(ByVal s1 As String, ByVal s2 As String)

　　Dim s3 As String, s4 As String, x As Integer, y1 As Integer, y2 As Integer, z As Integer
　　s3 = Replace(Replace(s1, "-", ","), "=", ",")

　　If s3 = s2 Or s3 Like s2 & ",*" Then
　　　　x = 1
　　ElseIf s3 Like "*," & s2 & ",*" Then
　　　　x = InStr(1, s3, "," & s2 & ",") + 1
　　ElseIf s3 Like "*(" & s2 & ",*" Then
　　　　x = InStr(1, s3, "(" & s2 & ",") + 1
　　ElseIf s3 Like "*," & s2 & ")*" Then
　　　　x = InStr(1, s3, "," & s2 & ")") + 1
　　ElseIf s3 Like "*," & s2 Then
　　　　x = Len(s3) - Len(s2) + 1
　　Else
　　　　x = 0
　　End If

　　If x > 1 Then
　　　　y1 = InStrRev(s3, "(", x)
　　　　y2 = InStrRev(s3, ")", x)
　　　　z = InStr(x, s3, ")")
　　　　If y1 > y2 And z > 0 Then
　　　　　　s4 = Left(s3, y1)
　　　　Else
　　　　　　s4 = Left(s3, x)
　　　　End If
　　　　OON = Len(s4) - Len(Replace(s4, ",", "")) + 1
　　Else
　　　　OON = x
　　End If

End Function

お礼

おお！思ってた通りの事が見事にできました。素晴らしい回答ありがとうございます。
ユーザー関数の仕組みは私の知識ではまだ理解出来ないですが、後学のために参考にさせて貰います。
ありがとうございましたm(_ _)m

回答No.4

bunjii

>数字は必ず１～１８の2桁の間になります。作業列も可です。
作業用のシートを使うと目的通りに処理できそうです。

添付画像は1つの例です。
詳しい説明が必要であれば補足してください。

お礼

画像付きでわかりやすい回答ありがとうございます。
今後の参考にさせて貰いますm(_ _)m

回答No.2

MarcoRossiItaly

( ) がなければ、易しくないながらもまあできますが、例えば「3」と指定して「13」の位置で引っかかったりするとダメなので、前後の「,」を含めて位置を検索するといった工夫が必要でしょう。

( ) があるとなると、( ) の位置やその間に含まれる数の個数が一定していないので、ものすごく長大・難解な数式が必要になってしまいそうです。

なので、ユーザー定義関数を作ってしまいましょう。下のコードを標準モジュールなどに貼り付けたら、次式をセルに記入してください。これで大体うまく行ってないでしょうか。

E2　=oon(b2,E$1)

Function OON(ByVal s1 As String, ByVal s2 As String)

　　Dim s3 As String, s4 As String, x As Integer, y As Integer, z As Integer
　　s3 = Replace(Replace(s1, "-", ","), "=", ",")

　　If s3 = s2 Or s3 Like s2 & ",*" Then
　　　　x = 1
　　ElseIf s3 Like "*," & s2 & ",*" Then
　　　　x = InStr(1, s3, "," & s2 & ",") + 1
　　ElseIf s3 Like "*(" & s2 & ",*" Then
　　　　x = InStr(1, s3, "(" & s2 & ",") + 1
　　ElseIf s3 Like "*," & s2 & ")*" Then
　　　　x = InStr(1, s3, "," & s2 & ")") + 1
　　ElseIf s3 Like "*," & s2 Then
　　　　x = Len(s3) - Len(s2) + 1
　　Else
　　　　x = 0
　　End If

　　If x > 1 Then
　　　　y = InStrRev(s3, "(", x)
　　　　z = InStr(x, s3, ")")
　　　　If y * z Then
　　　　　　s4 = Left(s3, y)
　　　　Else
　　　　　　s4 = Left(s3, x)
　　　　End If
　　　　OON = Len(s4) - Len(Replace(s4, ",", "")) + 1
　　Else
　　　　OON = x
　　End If

End Function

回答No.1

mayoke

FIND関数で開始位置(X)を特定して、
1文字目からX文字目までの文字数から
1文字目からX文字目までのデリミタ(,等)を消した文字数を差し引けば出るんじゃない？

(E2セルの場合)
=LEN(LEFT(B2,FIND($E$1,B2)))-LEN(SUBSTITUTE(LEFT(B2,FIND($E$1,B2)),",",""))+1

あとはハンドリングの調整が必要かな。
(該当文字が無い場合や1つ目の時の動きなど)

参考までに。

補足

回答ありがとうございます。
SUBSTITUTE関数は勉強になりました。おかげで、ハイフンやカンマ等を削除して順番が出せました。
しかし、（）内の同順判定の方法で躓いています(^^;)
ちなみに指定した数字が「該当なし」というのは存在しないので大丈夫です。