No.2ベストアンサー
- 回答日時:
No1です。
こちらに差し替えてください。
Sub TEST01()
Dim Rng As Range
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Set Rng = Range("D6:D37")
ActiveSheet.AutoFilterMode = False
With Rng
.AutoFilter
.AutoFilter Field:=1, Criteria1:="<>"
.SpecialCells(xlCellTypeVisible).Copy
End With
ActiveSheet.AutoFilterMode = False
With Sheets("集計")
.Range("IV2").PasteSpecial
Application.CutCopyMode = False
.Range("IV2", .Range("IV2").End(xlDown)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=.Range("C2"), Unique:=True
.Range("IV2", .Range("IV2").End(xlDown)).ClearContents
End With
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
Set Rng = Nothing
End Sub
No.3
- 回答日時:
ジャンプのセル選択を使えば値のあるセルだけを選択できますね
Sub Macro()
Range("D6:D37").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.Copy
Sheets("集計").Select
Range("C2").Select
ActiveSheet.Paste
End Sub
No.1
- 回答日時:
リストのRange("D6:D37")と、貼り付け先のSheets("集計")は別のシートなんですね?
Sub TEST()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Set Rng = Range("D6:D37")
ActiveSheet.AutoFilterMode = False
With Rng
.AutoFilter
.AutoFilter Field:=1, Criteria1:="<>"
.SpecialCells(xlCellTypeVisible).Copy
End With
ActiveSheet.AutoFilterMode = False
With Sheets("集計")
.Range("IV2").PasteSpecial
Application.CutCopyMode = False
.Range("IV2", .Range("IV2").End(xlDown)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=.Range("C2"), Unique:=True
.Range("IV2", .Range("IV2").End(xlDown)).ClearContents
End With
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
これでどうでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/05 09:30
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) 範囲を指定して別シートにコピペ 2 2022/09/15 07:32
- Visual Basic(VBA) 4月~3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range(" 2 2022/11/30 16:37
- Visual Basic(VBA) VBAを使いシート間で貼り付け 3 2023/03/14 20:53
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで「時間の足し算」はどう...
-
オートフィルのショートカット...
-
エクセルに詳しい方教えて下さ...
-
勤務表をエクセルで作る際、 最...
-
Excel2010で、今の、Ex...
-
UNIQUE関数が使えないバージョ...
-
Excelについて質問です。 表の...
-
Excelについて質問です。 ・デ...
-
Excelのフォントについて
-
Excel表の文字の幅を狭くしたい
-
Excelについて質問です。
-
エクセルのパスワードの一括解...
-
Excel 2019 での上書き保存につ...
-
EXCELで、関数を使って対象の項...
-
VBA
-
Excelで、10000,20000,30000と...
-
FormulaR1C1の 相対参照式のコピー
-
エクセルのソートについて
-
Excel 連番を入力する方法
-
Excelで投入数、加工数、検査待...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル詳しい方教えて下さい
-
ExcelでA列をコピーしたいので...
-
エクセルのセル統合について
-
Excelの関数で起きた現象の原因...
-
Excelファイルが閉じられい!
-
Excelのシート背景に不明な文字...
-
エクセルの枠線
-
Excel 領収書発行
-
エクセル関数の使い方を教えて...
-
C列にF列の担当者(A〜)を順番...
-
ピポットテーブルの参照元を別...
-
EXCEl VBA
-
Excelでの判別方法
-
VBAで、サブフォルダにある複数...
-
"りんご"と"みかん"というシー...
-
マクロについて教えてください。
-
EXCELファイルが読み取り専用で...
-
同一セルに入力規則のリストと...
-
100行50列の表で、1~40列でフ...
-
なぜか「Nextに対応するForがあ...
おすすめ情報