質問者の気休めに、VBAで Sub test01() d = Range("A65536").End(xlUp).Row MsgBox d Cells(d + 1, "A") = WorksheetFunction.Sum(Range("A1:A" & d)) End Sub 直ぐ下の行にA1セルから最終行までの合計を出している。 ーー 関数では、1つのやり方として =SUM(OFFSET(A1,0,0,COUNT(A1:A100),1)) A列のA1以下に数だけのセルが有る場合のこと。 ーー SUMPRODUCT関数では =SUMPRODUCT((A1:A100<>"")*(A1:A100)) ーーー 配列数式では 例データ 1 2 3 4 a d 12 の場合、字列があってもSUMの場合は =SUM(IF(A1:A100<>"",A1:A100),0)と入れて、SHIFT+CTRL+E