[[20180703142203]]　『オートフィルタ抽出後データ先頭セルの選択』（TM）　ページの最後に飛ぶ

『オートフィルタ抽出後データ先頭セルの選択』（TM）

過去ログNo,[20070426103847]に以下のVBA記述があり、試したのですが、Excelバージョン違いのためか、ﾃﾞｰﾀ先頭セルの選択をしてくれません。

下記のセル選択をすることで、『オートフィルタ抽出後データ先頭セルの選択』ができます。
Range("A2:A" & 最終行 + 1).SpecialCells(xlCellTypeVisible).Areas(1).Cells(1).Select

何がいけないのでしょうか？ご教示頂きたく。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

A2セルから始まっているので、A2セル以下の表示されている先頭セルが選択されると思いますが、どのセルが選択されるのでしょうか？どこも悪くなくて、動きを勘違いしている、ということはありませんか？
（例えば、「最終行」という変数に何も代入していなければ、"A1:A2" の範囲になるので、A1セルが選択されますよ？）
（???） 2018/07/03(火) 14:44

＞何がいけないのでしょうか？
提示のコードで特に問題ないように見えますが、
変数「最終行」にどんな値が入っているかわからないので、
検証のしようがありません。

てか、
その前になぜ、見えているデータの先頭セルが知りたいのですか？

選択出来たとしてその後やりたいことの方が重要だと思います。
（つまり先頭セルを特定しなくてもいい場合がある。）
あと、1件も抽出できてない場合の条件の時に、
処理を回避することも必要になることがあります。
なので、それだけじゃなく全部ひっくるめてセットで全体を考えたいところです。

（まっつわん） 2018/07/03(火) 14:59

早速、ご返事ありがとうございます。

「オートフィルタ抽出後データ先頭セルの選択」については、以下のPGで解決をいたしました。

With ActiveSheet.AutoFilter.Range

      With .Resize(.Rows.Count - 1).Offset(1)
      .Columns(1).SpecialCells(xlCellTypeVisible).Cells(1).Select
      End With
    End With

ご指導いただきありがとうございます。

（TM） 2018/07/03(火) 17:35

コメント返信：

[ 一覧(最新更新順) ]

[[20180703142203]] 『オートフィルタ抽出後データ先頭セルの選択』（TM） ページの最後に飛ぶ

[[20180703142203]]　『オートフィルタ抽出後データ先頭セルの選択』（TM）　ページの最後に飛ぶ