ここから本文です

★エクセルVBA フィルターをかけたときに可視セルだけをコピペしたい★ お世話に...

cos********さん

2020/1/2018:31:20

★エクセルVBA フィルターをかけたときに可視セルだけをコピペしたい★

お世話になります。
エクセルVBA初心者で勉強中のものです。わからないことがあるので教えてください。

★やりたいこととして、【明細】というシートのC列にフィルターをかけて"A"と"B"に絞り、
C2以下とH2以下をそれぞれ可視セルのみコピーして、それぞれ【年間プラン】というシートのH10とJ10から値貼りしたい(C2以下はH10以下に、H2以下はJ10以下に)のですが、

1番下に記載のコードを使用しているのですが、C列は可視セルがコピペできるのですが、H2以下がなぜかH2の値が全部コピペされています。

どなたか教えて頂けますと大変うれしいです。
よろしくお願いします。

Sub ⑦明細貼付け()

'明細絞り込み&貼付け
With Sheets("受注明細").Range("A1")
.AutoFilter 3, "A", xlOr, "B"
.Range("a2", .Cells(Rows.Count, "a").End(xlUp)).Copy
End With

With Worksheets("年間プラン").Range("H10")
.PasteSpecial (xlPasteValues)
End With

With Sheets("受注明細")
.Range("h2", .Cells(Rows.Count, "h").End(xlUp)).Copy
End With

With Worksheets("年間プランOP").Range("J10")
.PasteSpecial (xlPasteValues)
End With


'数式オートフィル
Worksheets("年間プラン").Select
Dim rng As Range, xRows As Long
Const cAdr As String = "A10:G10,I10,J10:CF10"

xRows = Cells(Rows.Count, 8).End(xlUp).Row - 9
For Each rng In Range(cAdr).Areas
With rng
.Copy .Resize(xRows)
End With
Next

End Sub


よろしくお願いします。

閲覧数:
11
回答数:
1

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

hot********さん

2020/1/2021:45:34

数式オートフィルの所でJ列を書き換えています。

Const cAdr As String = "A10:G10,I10,J10:CF10"

にJ10があります。

質問した人からのコメント

2020/1/23 16:33:40

そんな簡単なことだったとは!!全然きづかずお恥ずかしいです。
ありがとございます。すごく助かりました。

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる