CELLCOUNT

[schardt679]

Returns the total cell count, total row count, or total column count of a given range.

=LAMBDA(Array,Info_Type,
      LET(Arr, Array&"",    Info, Info_Type,    InfoScan, AND(Info<>{2,1,0}),    InfoMSG, "Info_Type=0,1,2",
          RowCt, ROWS(Arr),   ColCt, COLUMNS(Arr),    TotalCells, RowCt*ColCt,
          Result, SWITCH(Info,  1, RowCt,  2, ColCt,  TotalCells),    Return, IF(InfoScan, InfoMSG, Result),
      Return)
  )

	CELLCOUNT
	Returns total cells, rows, or columns of a range as a number
	Total cells= 0 or ingnored; total rows= 1; or total columns= 2
	Returns a number corresponding to the above
	Range			Result
	1	2		8
	3	4
	5	6
	7	8
	Total cell count is returned
	=CELLCOUNT(B7#,)
	Range			Result
	1	2		4
	3	4
	5	6
	7	8
	Total row count is returned
	=CELLCOUNT(B18#, 1)
	Range			Result
	1	2		2
	3	4
	5	6
	7	8
	Total column count is returned
	=CELLCOUNT(B29#, 2)

 

[schardt679]

I updated this function slightly. Cells with errors and blanks are handled, even if the range is all errors or blanks. All other functionality is the same as above. See below.

Returns the total cell count, total row count, or total column count of a given range.

Optional arguments require comma to work. Calls AVALUE
Other functions on minisheet: AFORMULATEXT.

=LAMBDA(Array,Info_Type,
      LET(Arr, AVALUE(Array,,,),          Info, Info_Type,
             InfoScan, AND(Info<>{2,1,0}),          InfoMSG, "Info_Type=0,1,2",
             RowCt, ROWS(Arr),          ColCt, COLUMNS(Arr),          TotalCells, RowCt*ColCt,
             Result, SWITCH(Info,  1, RowCt,  2, ColCt,  TotalCells),
             Return, IF(InfoScan, InfoMSG, Result),
             Return
      )
  )

LAMBDA Examples.xlsx
	B	C	D	E
36	Range			Result
37	#REF!			1
38
39	Total cell count is returned
40	Formula in cell E37☛ =CELLCOUNT(B37,)
CELLCOUNT

Cell Formulas
Range	Formula
E37	E37	=CELLCOUNT(B37,)
B40	B40	=AFORMULATEXT(E37)