複数のセルにまたがった文字の検索

質問

セルに，図のような記号がランダムに配置されています。
□－－－□－□　　　□－－－－－□　□　　　　□－□　　　□－－－－□－－－□
といった具合で，空白と四角とハイフンが並んでいます。これらの文字列は1つのセルに入力されているわけではなく，1セルに付き1文字入力されています。上記の場合は，空白を含め，39セルが使われています。
このときに，空白で区切られた□と－を1つのグループとして，それぞれのグループの個数と，各グループのセル長を抽出したいのですが，何か良い方法はないでしょうか？
例えば，上記の場合は，7、7、1、3、10という数字の羅列を取得したいです。
できればマクロなしで関数のみで処理したいです。
極めて難易度の高い要望であることは承知していますが，どなたか知識をお持ちの方がいらっしゃいましたら教えていただければ幸いです。
よろしくお願い致します。

回答No.1

KURUMITO · ベストアンサー

計算が重くなりますので作業列を作って対応します。
Ａ列は空白にしてＢ1セルからＡＮ1セルまでにお示しのようなデータが有るとします。
Ｂ2セルには次の式を入力してＡＮ2セルまでドラッグコピーします。

=IF(AND(A1="",B1<>""),1,IF(AND(A1<>"",B1<>""),A2+1,""))

Ｂ3セルには次の式を入力してＡＮ3セルまでドラッグコピーします。

=IF(AND(B2<>"",C2=""),B2,"")

Ｂ4セルには次の式を入力してＡＮ4セルまでドラッグコピーします。

=IF(B3<>"",IF(A4<>"",A4&","&B3,B3),IF(A4="","",A4))

ＡＮ4セルにはお求めの結果が表示されます。

お礼

お返事を忘れていました。
このままだと文字列群が1グループだけの時にうまくいきませんでしたが，教えていただいた内容を改良することで対処できました。ありがとうございました。

回答No.2

watabe007

>できればマクロなしで関数のみで処理したいです。
あえてマクロでユーザー定義関数を作ってみました
以下のコードを標準モジュールに貼付
セルには　=vsbsetb(A1:AM1)　と式を記入してください。

Public Function vsbsetb(Target As Range) As String
　　Dim myStr As String
　　Dim c As Range, i As Long
　　Dim arr As Variant

　　For Each c In Target
　　　　 If c.Value = "" Then
　　　　　　myStr = myStr & " "
　　　　Else
　　　　　　myStr = myStr & c.Value
　　　　End If
　　Next
　　myStr = WorksheetFunction.Trim(myStr)
　　arr = Split(myStr)
　　For i = 0 To UBound(arr)
　　　　arr(i) = Len(arr(i))
　　Next
　　vsbsetb = Join(arr, ",")
End Function

お礼

ありがとうございました。