No.1ベストアンサー
- 回答日時:
こんばんは。
簡単な方法としては、数式を貼り付けて、それを値コピーしてしまってもよいと思います。
VBAらしくすると、以下のような方法があります。
ただし、書式などはコピーされません。
Sub TestCopy()
Dim ar As Variant
Dim ur As Long
Dim uc As Integer
If ActiveSheet.AutoFilterMode = False Then
MsgBox "オートフィルタかありません。", vbInformation
Exit Sub
End If
ar = ActiveSheet.AutoFilter.Range.Value
ur = UBound(ar, 1) '行
uc = UBound(ar, 2) '列
Worksheets("Sheet2").Range("A1").Resize(ur, uc).Value = ar
End Sub
No.2
- 回答日時:
にある
Range("A1").CurrentRegion.Copy _
Destination:=Worksheets("集計結果").Range("A1")
とした場合、非表示になっている行も一緒にコピーされてしまいます。とありますが、コピーされませんでした。
しかし
編集ージャンプーセル選択ーアクチブセル領域を選び
その状態で
Sub test02()
Dim cl As Range
For Each cl In Selection
MsgBox cl.Address
Next
End Sub
を実行すると、非表示列のセルも捉えました。
私には良くわかりません。
何かご参考になれば。
xlCellTypeのVisibleはあっても、Allが無いのが残念。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel フィルタ後のコピー貼付けと可視セルの関係について 3 2023/02/07 16:42
- その他(Microsoft Office) エクセルマクロ オートフィルターでで選択コピー 2 2022/04/18 11:05
- Excel(エクセル) エクセルでフィルタ後、考えている場所に値コピーができない。 1 2022/05/02 21:01
- Windows 10 エクセルの罫線がパワポに貼り付けると見えなくなる。 3 2022/12/27 15:23
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Excel(エクセル) エクセルについて教えてください。 3 2023/03/24 08:34
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excelの非表示列も含めてコピー
Excel(エクセル)
-
エクセルで、非表示になっている列もコピー
その他(Microsoft Office)
-
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
-
4
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
5
ExcelのVBAを使ってタイトル行が2行ある場合の別シートへの抽出方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
PDFの一部を切り取って別のシー...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
WORDのグレー括弧って?
-
セルに値がある行のみを抽出す...
-
Excel フィルターを掛けた状態...
-
VBAのテキストボックスに文字列...
-
マイナスの場合「xxxx-」...
-
エクセルでマクロにてセル色と...
-
コピー&貼り付けの仕方を教え...
-
数式による空白を無視して最終...
-
セルから一部だけを抜き出して...
-
Excel 3列毎のセルを別の表に抽...
-
エクセルVBAでコピーすると行の...
-
右クリックでコピー、切り取り...
-
エクセル VBA・マクロ コピー ...
-
シートのコピー、セル全体のコ...
-
パワポに張り付けると画像が荒...
-
Book1からBook2へコピー/貼り付け
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
PDFの一部を切り取って別のシー...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
【エクセル】表の中の文字だけ...
-
Excel 3列毎のセルを別の表に抽...
-
Excel フィルターを掛けた状態...
-
WORDのグレー括弧って?
-
セルに値がある行のみを抽出す...
-
VBAのテキストボックスに文字列...
-
エクセルでコピーしたものをコ...
-
マイナスの場合「xxxx-」...
-
エクセルでマクロにてセル色と...
-
コピーされたセルの文字が途中...
-
EXCEL 1つ飛ばしのセル参照
-
数式による空白を無視して最終...
-
コピー&貼り付けの仕方を教え...
-
エクセルVBAでコピーすると行の...
-
Wordの「背景色を消す方法」教...
-
セルから一部だけを抜き出して...
おすすめ情報