Можно посчитать формулами, размещенными "где-нибудь сбоку" во вспомогательных ячейках. А затем в скрипте прочитать значения из этих ячеек (если дальше планируется какая-то скриптовая обработка с участием этих значений):
формула для подсчета 1-этажных колонок (ответ 3):
[vba]Код
=COUNTIF(MAP(1:1; 2:2; LAMBDA(a;b;(a<>"")+(b<>""))); 1)
[/vba]
формула для подсчета 2-этажных колонок (ответ 30):
[vba]Код
=COUNTIF(MAP(1:1; 2:2; LAMBDA(a;b;(a<>"")+(b<>""))); 2)
[/vba]
Как видно из формул, "этажность" выражается числом перед самой последней скобкой.