[[20080812090615]]　『非表示が有る場合の末尾行の調査は？』（夏雲）　ページの最後に飛ぶ

『非表示が有る場合の末尾行の調査は？』（夏雲）

 掲示板のレスを検討していて，知りたいと思ったことです。

  通常，データ（A列と仮定）の末尾行は下記でもとまりますが 
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

  たまたま，末尾行付近がが非表示になっていた場合には
  表示末尾行を拾ってしまいます。
     実際の非表示の末尾行のマクロでの調査式を教えてください。

 こんなんでうまくいきますか？

 MsgBox Range("A1").CurrentRegion.Rows.Count

 (ROUGE)

 ＞掲示板のレスを検討していて
 と言うのは、↓のスレに付いてでしょうか？
[[20080808234849]]『オートフィルタで集計後にＶＢＡマクロでデータを取得したい』（kokit）

 オートフィルタの範囲は
 「AutoFilter.Range」
 で取得できますので、最終行番号は

 '------
Sub 最終行()
    With ActiveSheet.AutoFilter.Range
        MsgBox "オートフィルタの範囲の最終行は　" & .Row + .Rows.Count - 1 & "　です。"
    End With
End Sub
 '------

 (HANA)

 r = Cells.Find("*", , , , xlByRows, xlPrevious).Row

 （川野鮎太郎）

 (ROUGE)さん，(HANA)さん   ありがとうございました。

 両方ともうまく取得できました。

 （川野鮎太郎）さん のコードは表示末尾を取得しました。

  ＞掲示板のレス
         そうです。・・・知恵を拝借して直しました。

（夏雲）

 オートフィルタ以外で非表示にしてある
 （AutoFilter.Rangeが使えない）なら、
 UsedRangeで使用範囲を取得しても良いかもしれません。

 (HANA)

 私の書いたのは非表示の設定でした。失礼しました。

 ところで夕焼さん、いや、夏雲さん向こうのスレで変数を宣言しておられますが、
 Intgerではなく、Longが良いですよ。（行数は2003まででも65536行あります。）

 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20080812090615]] 『非表示が有る場合の末尾行の調査は？』（夏雲） ページの最後に飛ぶ

[[20080812090615]]　『非表示が有る場合の末尾行の調査は？』（夏雲）　ページの最後に飛ぶ