
表題について質問させていただきます。
行数の決まっていないA~E列までデータが入っている表があります。
仮に10行だったとして、マクロの操作でA11に移動させるには、以下で可能だったのですが、
・Range("A65536").End(xlUp).Offset(1).Select
・Range("A1").End(xlDown).Offset(1,0).Select
オートフィルタ実行中は不可視セルが選択されてしまい上記例のA11に移動できません。
オートフィルタ実行中にもA11へ移動する方法をご教授願います。
※行数が15行のときはA16へ移動。
新規に入力する行へ移動することが望みです。
エクセル2003です よろしくお願いいたします。
No.2
- 回答日時:
私の適当に作ったデータではこれで移動できたんですが
どうですかね。
ActiveSheet.AutoFilter.Range.End(xlDown).Offset(1, 0).Select
お返事いただきありがとうございます。
さて、さっそく試させて頂いたのですが 希望の動きが出来ませんでした。
私の説明不足の部分だった部分をNo.1のかたへの部分に例題として明記させていただきました。
もし、よろしければ今一度ご教授願います。
No.1
- 回答日時:
EXCEL2000ではMacro1でもうまく行くのですが
EXCEL2003はうまく行かないようですね
Macro2はどうでしょう?
EXCEL2000ではMcro1と同じ結果になります
試してみて
Sub Macro1()
MsgBox Range("a65536").End(xlUp).Address
End Sub
Sub Macro2()
MsgBox Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeLastCell).Address
End Sub
お返事いただきありがとうございます。
さて、私の説明不足があるようでして、以下に例をあげて補足説明させていただきます。
以下のデータの場合。
code 商品名
1001 りんご
1002 みかん
1001 りんご
1001 りんご
下のマクロを実行すると どちらのマクロでも
・Range("A65536").End(xlUp).Offset(1).Select
・Range("A1").End(xlDown).Offset(1,0).Select
A6に移動します。
しかし、オートフィルタを使って 以下のように「みかん」のみを抽出している場合は
code 商品名
1002 みかん
不可視セルのA4に移動してしまうのです。
オートフィルタ中であっても どうにかA6に移動できる方法が知りたいのです。
なにとぞお願いいたします。
(最初の質問ではA~E列と明記しましたが便宜上A・Bの2列で説明させていただきました。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
Excelのオートフィルタで非表示...
-
【Excel/関数/条件付き書式】月...
-
【EXCEL】条件に一致した最新デ...
-
エクセルの偶数行(奇数行)の抽出
-
可視セルを対象としたcountifが...
-
なぜShowAllDataだとうまく行か...
-
Excelマクロ:オートフィルタ3...
-
access マクロでのフィルタの...
-
データの抽出を教えてください
-
オートフィルタで選択したデー...
-
エクセルフィルターオプション...
-
EXCEL2003のオートフィルターで...
-
エクセル関数で、数字の入った...
-
【Excel】行に複数回出てくる人...
-
オートフィルタで3つ以上の条...
-
結合したセルのオートフィルタ...
-
エクセル、オートフィルタで最...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセル関数で、数字の入った...
-
エクセルの偶数行(奇数行)の抽出
-
オートフィルタで選択したデー...
-
オートフィルタは金額の桁カン...
-
エクセルで指定期間内に在職す...
-
エクセルで、条件に一致した行...
-
オートフィルタを見出し行選択...
-
エクセルにて、フィルタをかけ...
-
access マクロでのフィルタの...
-
可視セルを対象としたcountifが...
-
Excel共有ブックのオートフィル...
-
オートフィルタで3つ以上の条...
-
エクセルで隔週をもとめる
-
【EXCEL】条件に一致した最新デ...
-
データの抽出を教えてください
-
なぜShowAllDataだとうまく行か...
おすすめ情報