抽出結果のコピー＆ペースト

質問

Excelでオートフィルタで抽出した結果のみを
別シートに貼りつけるにはどうしたらいいですか？

そのままコピー＆ペーストをすると
非表示になっている部分までコピーされてしまいます…。

よろしくお願いします。

回答No.1

tbobi · ベストアンサー

あれ？うまくいかないですか？
それでは次の方法で。

コピーしたい部分を選択した後、
メニューバーの　編集　＞　ジャンプ　をクリック
セル選択　をクリック
可視セルに●を入れて、OKをクリック。

これで表示されているものだけ選択できます。

あとは、コピーをして普通に貼り付ければOKなハズです。

お礼

最初このやり方でうまくいかなかったのですが
もう一度やってみたら出来ました。
どうもありがとうございました！

回答No.5

imogasi

＃２です。
私がやって出来ないといったのは、オートフィルタの結果をコピーするケースでなく、非表示にした列を含めてコピー・貼りつけると、非表示の列を貼りつけない方法は無いかと考え、＃１のご回答者の方法をヒントにやって見ましたが出来なかった（２０００で）と言うことでした。
誤解を与える言い方になっており、＃４を入れさせる原因になったかと、＃１のご回答者にお詫びいたします。

回答No.4

tbobi

＃１です。

Excel2002 SP-1 で確認しました。
オートフィルタで抽出したものを選択して、コピーした場合は、見出しの行を含めようが含めなかろうが、
その部分だけきちんと別シートに貼付けできました。

範囲選択＋ジャンプによって可視セル選択　でも同様にできました。

どこかにそういう設定があるのか、それともバージョンによって動きが違うのかわかりませんが、
いちおう動作確認はしましたので、その点補足しておきます。

回答No.3

taka_tetsu

値だけでいいんでしたら、「形式を選択して貼り付け」で
値を選べばいいのでは？

回答No.2

imogasi

操作では意外に難しいように思います。＃１回答はやって見ましたが、貼り付けが出来ませんでした。
それで、非表示の列をコピーしないをＶＢＡでやって見ました。
Sub test01()
j = 5 'Ｅ列以右に貼りつけ
For i = 1 To 3 'Ａ列からＣ列までのＢ列非表示とする
If ActiveSheet.Columns(i).Hidden = False Then
Columns(i).Copy
Cells(1, j).Select
ActiveSheet.Paste
j = j + 1
End If
Next
Application.CutCopyMode = False
End Sub

お礼

なるほど！
こういうやり方もあるんですね。
どうもありがとうございました。