[[20060310135501]]　『フィルタで抽出したデータの貼り付け方』（ペリ）　ページの最後に飛ぶ

『フィルタで抽出したデータの貼り付け方』（ペリ）

フィルターでデータを抽出した部分に、別の列のデータを貼り付けたいのですが、
貼り付けようとすると抽出以外の部分にも貼り付いてしまいます。

(抽出前)

(抽出後)

この状態で、B列の値をA列に貼り付けると、1～3行にデータが貼り付いてしまいます。

可視部分にだけ貼り付けるには、どのような方法があるのでしょうか？

アドバイス、よろしくお願い致します。

私も前にそのようなことをしたくて調べたのですが、
コピーは可視部のみできても、ペーストは可視部にのみペーストができないと
何かで読みました。
（前の話なのでＵＲＬなど参照できるものがわからなくなってしまいました）

なので、もし上記のように、ＢをＡに可視部のみコピーしたいときは
以下のマクロを使用して見てはどうでしょうか

Sub visiblepaste()

    Dim i
    i = 2
    Do While Len(Range("B" & i).Value) > 0

        If Rows(i).Hidden = False Then

            Range("A" & i).Value = Range("B" & i).Value

        End If

        i = i + 1
    Loop

End Sub

ただし、条件として、上記のマクロを実行するには
コピーの元になるＢ列には途中に空欄がないということが
前提になります
（たつけん）

こちらにマクロを使わずにできるやり方がのっていました。
参考にしてみてください

（たつけん）

下の方法で出来ました。
ありがとうございました。（ペリ）

コメント返信：