No.2
- 回答日時:
#1の回答者です。
>ただ見える場所にカーソルを移動させたいだけなのですが、もう少し簡単な表現方法はございますでしょうか?
失礼しました。質問を読み違えてしまったようです。
見えるセルに移動する、というのは、簡単ではあっても、めったに出会わないマクロだと思います。Sendkeys を使う方法があります。
'//
Sub TestFilterMoveCell()
With ActiveSheet
.Range("A1").Select '左端上のオートフィルタに移動
Do
Selection.Offset(1).Select
Loop Until ActiveCell.EntireRow.Hidden = False
End With
End Sub
'Sendkeys を使った方法
'これは、他のWindow画面を開いていると、うまくいきません。
'//あまりお勧めしません。
Sub TestFilterMoveCell2()
With ActiveSheet
.Range("A1").Select '左端上のオートフィルタに移動
Application.SendKeys "{DOWN}"
End With
End Sub
No.1
- 回答日時:
一般的には、以下のように、そのままコピーすれば、見えないセルは選択しないはずです。
もしかしたら、バージョンの違いがあると思います。
その場合は、**の印の部分に替えてください。
Sub TestFilter()
Dim FilRange As Range
With ActiveSheet
'オートフィルターの状態の確認
If .AutoFilterMode = False Then
.Range("A1").AutoFilter
ElseIf .FilterMode Then
'フィルターで見えない行がある場合は一度全部だす。
.AutoFilter.ShowAllData
End If
'オートフィルターの範囲を設定 オートフィルターの選択
Set FilRange = .AutoFilter.Range
FilRange.AutoFilter _
Field:=1, _
Criteria1:="0"
'一列目のフィルターを使う
With FilRange
'Offset を使って1行下げて、行を縮める
.Resize(.Rows.Count - 1).Offset(1).Copy Worksheets("Sheet2").Range("A2")
''**.Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Sheet2").Range("A2")
End With
End With
End Sub
添付画像は、そのオートフィルターの状態
ご回答ありがとうございました。
ただ見える場所にカーソルを移動させたいだけなのですが、もう少し簡単な表現方法はございますでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) エクセルで書式設定とフィルタの組み合わせでうまく行かないのですが 4 2022/10/07 10:02
- Excel(エクセル) excelで可視セルのみ置換 3 2022/08/04 11:02
- Excel(エクセル) Excel アクティブセルのみ条件付き書式の色を他の色にしたい。 4 2022/06/11 22:19
- Visual Basic(VBA) VBA リストボックス複数選択からセルへの反映についての質問です。 リストボックス1では1つ選択 リ 6 2023/02/24 12:51
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Excel(エクセル) エクセルでの行列の選択について 1 2022/06/01 17:01
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Offsetで可視セルだけを移動したい。
Excel(エクセル)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
EXCELのVBA-フィルタ抽出後のセル選択方法
Visual Basic(VBA)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
エクセルVBA ひとつ下の行を選択したい
Excel(エクセル)
-
8
ExcelVBA:オートフィルタをかけたシート上でのセル内の値参照について
Visual Basic(VBA)
-
9
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
10
Excelのフィルター後の一番上のセルをコピーする(マクロ教えて。) Excelで5行目にフィルター
Excel(エクセル)
-
11
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
12
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
13
エクセルVBAで、非表示にした行は飛ばしてスクロールさせる方法を教えて
Visual Basic(VBA)
-
14
エクセルでエラーが出て困っています。
Excel(エクセル)
-
15
VBAを一度起動するとずっと出てきます。
Access(アクセス)
-
16
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
17
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
18
VBAで配列の計算
Excel(エクセル)
-
19
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
20
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
私は賃貸しマンションに引越し...
-
キッチンのレンジフードを フラ...
-
ティッシュペーパーは空気を通...
-
交換用部品ありますか
-
エクセルでフィルターをかけた...
-
レンジフードのフィルターは不...
-
RFフィルタ、IFフィルタについ...
-
キッチン換気扇フィルターに関...
-
お風呂の循環アダプターカバー...
-
暗室電球・暗室用赤外線ランプ...
-
ソレアード2cupコーヒーメーカ...
-
ソフトバンクのあんしんフィル...
-
プライバシーフィルターの取り...
-
ファンヒーターの黒メッシュフ...
-
加湿空気清浄機と加湿器について
-
浄水器 パナソニックと日本トリム
-
部屋をどれだけ綺麗に掃除して...
-
空気清浄機の赤いランプがつい...
-
落ちないカルキ?を落とす方法...
-
空気清浄機のプラズマクラスタ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルフィルタ 日々のデータ...
-
エクセルでフィルターをかけた...
-
VBA オートフィルター状態から...
-
レンジフードフィルタの訪問販...
-
ソフトバンクのあんしんフィル...
-
Excel 名簿の検索…検索項目だけ...
-
ファンヒーターの黒メッシュフ...
-
RFフィルタ、IFフィルタについ...
-
ダイニチ・ブルーヒーター
-
浄水器 パナソニックと日本トリム
-
お風呂の循環アダプターカバー...
-
レンジフードのフィルターは不...
-
ティッシュペーパーは空気を通...
-
学校のパソコンについて
-
乾燥機 フィルター交換したけ...
-
家庭用冷蔵庫の製氷機の汚れ
-
エクセルのマクロでフィルター...
-
ピペットからのコンタミの確率
-
レンジフィルターの訪問販売
-
左肩に顔認証がかかってフィル...
おすすめ情報