ソース中の一部なので意味不明だったら恐縮ですが、
Set FilterRange = Range(CopyRange.Offset(0).Address(1, 1))
FilterRange.AutoFilter Field:=2, Criteria1:="<>", Operator:=xlFilterValues
FilterRange.Selection.Copy
コピーしたい範囲を見つけて、FilterRange に入れてます。
そしてその範囲で2列目のnullをオートフィルタで除外して、
その結果をコピーしたところです(つもりです)
これを、貼付.xlsx のAというシートのA1セルに値で貼り付けたいのですが、
何故かカーソル位置の1セルしか貼り付けられませんでした。
正しい方法を教えてください。
No.1ベストアンサー
- 回答日時:
こんばんは、
CopyRangeにどのような範囲がset されているか解らないので、、何とも
ちなみに
Set FilterRange = Range(CopyRange.Offset(0).Address(1, 1)) は
Set FilterRange=CopyRange と同じ事になると思います。強いては
以降のFilterRangeをCopyRangeとしても成立するのでは無いかと、、、
デバッグしていませんが、
FilterRange.Selection.Copy
コンパイルはできるかも知れませんが、実行時エラーでは無いでしょうか?
CopyRangeの指定がSet CopyRange = ActiveSheet.Range("A1:D50")みたいに範囲を指定していれば、AutoFilterで絞られているとしても単セルが対象になる事は無いのでは無いかと思います。
想像で Range(CopyRange.Offset(0).Address(1, 1))そのままで
Dim CopyRange As Range
Set CopyRange = ActiveSheet.Range("A1", Cells(Rows.Count, 2).End(xlUp))
Dim FilterRange As Range
Set FilterRange = Range(CopyRange.Offset(0).Address(1, 1))
FilterRange.AutoFilter Field:=2, Criteria1:="<>", Operator:=xlFilterValues
FilterRange.Copy
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Visual Basic(VBA) 4月~3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range(" 2 2022/11/30 16:37
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
VBA 複数条件の分岐処理の上手...
-
Excel UserForm の表示位置
-
入力規則のリスト選択
-
DataGridViewのフォーカス遷移...
-
DataGridViewで指定したセルの...
-
エクセルのカーソルを非表示に...
-
Excelで空白セル直前のセルデー...
-
【VBA】【ユーザーフォーム_Lis...
-
セルの半透明着色処理
-
Excel VBA IF文がうまく動作し...
-
特定の色のついたセルを削除
-
EXCEL VBA 文中の書式ごと複写...
-
EXCEL 2010 VBAでピボットで複...
-
pukiwikiのテーブル拡張書式
-
Excel2003 VBA 「*」を含む文字...
-
エクセルの合計を自動で表示さ...
-
csvファイルの特定のセルから読...
-
複数指定セルの可視セルのみを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excelで空白セル直前のセルデー...
-
エクセルVBA 配列からセルに「...
-
Excel UserForm の表示位置
-
【Excel VBA】一番右端セルまで...
-
エクセルの合計を自動で表示さ...
-
【VBA】【ユーザーフォーム_Lis...
-
EXCEL VBA 文中の書式ごと複写...
-
下記のマクロの説明(意味)を...
-
Excel VBAでCheckboxの名前を変...
-
【VBA】写真の貼り付けコードが...
-
特定の色のついたセルを削除
-
VBA:日付を配列に入れ別セルに...
-
VBA にて、条件付き書式で背景...
-
DataGridViewのフォーカス遷移...
-
関数の引数でrangeを指定したとき
-
入力規則のリスト選択
-
DataGridViewで指定したセルの...
-
VBAでユーザーフォームにセル値...
-
複数指定セルの可視セルのみを...
おすすめ情報