【ExcelVBA】最終行の取得で困ってます

最終行を下記の方法で取得して、CSV出力するマクロを作ってます。

lastRow = shtData.Cells(shtData.Rows.Count, 1).End(xlUp).Row

↑この処理で、A列の最終行を取得してるのですが、
A列には、「=IF(C2="","",・・・・」が入っており、集計表自体は100行まであっても、
画面上に見えてるレコードが7行だったら7レコード分だけ出力したいのですが、
100行まるまる出力されてしまいます。(セルに関数が入っているだけでカウントされてしまう)
画面に数値が表示されている最終行を取得するにはどうしたら良いでしょうか？

No.2 回答者： fujillin 回答日時： 2024/07/29 13:39

こんにちは

実際の表がどうなっているのか不明ですけれど・・

ご提示の計算式を見る限り、Ｃ列を参照しているようですので、Ａ列ではなくＣ列の最終行を求めるのでは上手くいきませんか？
（Ｃ列が直接入力であろうと想像）

あるいは、表全体が関数等で作成されているという事でしょうか？
ご質問の文章通りに、「Ａ列の空白以外の最終行」を求めたければ、No1様の回答の方法でも良いですし、どこかの空きセルに
　=MAX(INDEX((A1:A100<>"")*ROW(A1:A100),))
を入力しておけば、そのセルの値を参照することでも得ることができます。

No.1 回答者： tatsumaru77 回答日時： 2024/07/29 12:21

100行目から上に向かって、空白（""）でない行を探せば良いかと思います。