演算子でまとめたセルの個数を知りたい

Question

演算子でまとめたセルの個数を知りたい

１コメント/セルを、項目ごとに振り分け、一つのセルにまとめる作業を行っています。
１つのセルには１コメントごとに改行するようにしています。

各コメントを一つのセルにまとめた後で、そのセルにまとめられたコメントの数を知る必要が出てきました。

下記の計算式でまとめられたセルの数を数える方法はあるでしょうか。
ご教授願います。

セルをまとめたときに使用した計算式

=B4&CHAR(10)&F4&CHAR(10)&K6

（例）B4：りんご、F4：かき、K6:もも
[纏めた後セルの表示]
りんご
かき
もも

Answer 1

Precedentsプロパティ

Msgbox Range("A1").Precedents.Count 

ただし他シートを参照している場合は使えませんので、その場合はttyp03さんの方法で。

Comments

[ttyp03]

こんなのあったんですね。知らなかった。
参考になります。

[s-ryu]

他シートのデータを参照しているため今回は使用できませんでしたが、大変参考になりました。ありがとうございました。

[hatena19]

他シートを参照している場合でも参照セル数を取得する方法が下記にあります。

数式の参照しているセルを取得する｜VBAサンプル集
https://excel-ubara.com/excelvba5/EXCELVBA258.html

今回はttyp03さんの方法でOKですが、もっと複雑な式の場合などは参考にしてください。

Answer 2

要は行数がわかればよいのでしょうか？
ご提示の数式がA1にあると仮定した場合、こんな数式で求められると思います。

=LEN(A1)-LEN(SUBSTITUTE(A1,CHAR(10),""))+1

追記
すみません、VBAの話のようでしたので、追記します。

UBound(Split(Range("A1"), Chr(10))) + 1

Comments

[s-ryu]

ご提示いただいた方法で解決することができました。ありがとうございました。