
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
- 回答日時:
http://www.moug.net/tech/exvba/0050114.htm
にある
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が無いのが残念。
にある
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
C+vのvは英語で何の頭文字...
-
Wordの「背景色を消す方法」教...
-
WORDのグレー括弧って?
-
大学生です。moodle上でのテス...
-
塗りつぶしの色をコピーするには
-
ExcelでA列をコピーしたいので...
-
エクセルでマクロにてセル色と...
-
マイナスの場合「xxxx-」...
-
エクセルでコピー貼り付けをす...
-
Excel 3列毎のセルを別の表に抽...
-
セルに値がある行のみを抽出す...
-
エクセルでコピーしたものをコ...
-
VBAのテキストボックスに文字列...
-
ショートカットキーのCtrl+V(...
-
セルから一部だけを抜き出して...
-
googleで翻訳したテキストがコ...
-
Wiresharkのパケットの詳細のテ...
-
海苔巻きって韓国料理のキンパ...
-
ペーストのVって
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
WORDのグレー括弧って?
-
セルに値がある行のみを抽出す...
-
Wordの「背景色を消す方法」教...
-
大学生です。moodle上でのテス...
-
エクセルでマクロにてセル色と...
-
エクセルでコピーしたものをコ...
-
【エクセル】表の中の文字だけ...
-
セルから一部だけを抜き出して...
-
VBAのテキストボックスに文字列...
-
Excel 3列毎のセルを別の表に抽...
-
数式による空白を無視して最終...
-
コピーされたセルの文字が途中...
-
Wiresharkのパケットの詳細のテ...
-
マイナスの場合「xxxx-」...
-
教えてgooにURLの貼り方教えて...
-
エクセル VBA・マクロ コピー ...
-
EXCEL 1つ飛ばしのセル参照
おすすめ情報