
表題について質問させていただきます。
行数の決まっていない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ランキング
-
エクセルでオートフィルタのボ...
-
可視セルを対象としたcountifが...
-
エクセル関数で、数字の入った...
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
Excelのオートフィルタで非表示...
-
オートフィルターで一つずつ抽...
-
オートフィルタで文字化け?
-
Excel共有ブックのオートフィル...
-
Excel 非表示の列を飛ばして合...
-
エクセルの偶数行(奇数行)の抽出
-
オートフィルタの抽出速度を上...
-
オートフィルタで未入力(空白...
-
Excel 日付・時刻データの抽出
-
オートフィルタで選択したデー...
-
エクセルで作った住所録からの...
-
上から順にすべてのデータを抽...
-
エクセルフィルターオプション...
-
エクセル オートフィルター
-
【excel】リスト内の条件にあっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセル関数で、数字の入った...
-
エクセルの偶数行(奇数行)の抽出
-
オートフィルタは金額の桁カン...
-
オートフィルタで選択したデー...
-
エクセルで、条件に一致した行...
-
エクセルで指定期間内に在職す...
-
エクセルにて、フィルタをかけ...
-
オートフィルタを見出し行選択...
-
access マクロでのフィルタの...
-
可視セルを対象としたcountifが...
-
Excel共有ブックのオートフィル...
-
オートフィルタで3つ以上の条...
-
エクセルで隔週をもとめる
-
【EXCEL】条件に一致した最新デ...
-
データの抽出を教えてください
-
なぜShowAllDataだとうまく行か...
おすすめ情報