エクセルで表示しないとした場合コピーするには

質問

エクセルで表示なしの設定で、表示されない部分のある表のみをコピーし、他のシートに「表示されていない部分のみをコピー、貼り付けする」ことは可能でしょうか。

下記、画像の表をコピーすると、表示されてない（非表示）部分まで、
コピーされてしまう。

回答No.1

Cupper · ベストアンサー

質問の意図を読み間違えそうなので、確認
表示されていない部分をコピーしたいのですね

これはちょっと面倒

表示されている部分だけをコピーするなら、
　編集 → ジャンプ → セル選択 → 可視セル → OK
これで表示されている部分だけを選択できるので
　編集 → コピー → （貼り付ける場所を指定して）編集 → 貼り付け
で可能です

表示されていない行を読み取りながら手動で範囲を選択する方法が実用的な気がします
（面倒で、さらに間違えるかもしれませんけど）
　以下手順
名前ボックスに表示されていない行を範囲として入力します
（質問文に添えられた画像では左上に「 M35 」 と表示されている場所です）
そこに
　３：４，７：２６
などと表示されていない行番号をコロン（：）で範囲として、またはカンマ（，）で区切って入力します
最後に Enterキーを押すとその範囲が選択されますので
　編集 → コピー
あとは貼り付けたい場所を選んで
　編集 → 貼り付け
でOK

お礼

大変わかりやすい説明でありがとうございました。

回答No.2

imogasi

質問の表現を、質問者がもう一回よく読んでください。
表現が混乱していて判りにくい。
＞可視セルだけをコピーする、ことを質問することは多いが
「隠れているセル（行）だけを別シートにコピーしたい」と、書けばしまいではないか。
VBAででもしないと出来ないと思います。
結構難しい。
標準モジュールに
Sub test01()
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
d = sh1.Range("A65536").End(xlUp).Row
MsgBox d
For i = 1 To d
If sh1.Cells(i, "A").EntireRow.Hidden = True Then
d1 = sh2.Range("A65536").End(xlUp).Row
MsgBox d1
sh1.Rows(i).Copy sh2.Rows(d1 + 1)
sh2.Rows(d1 + 1).EntireRow.Hidden = False
MsgBox i
End If
Next i
End Sub
ーーーー
例データ（テストデータ）
A2:C１２
ーー
第２行目から
1 aa aa1
2 bb bb2
3 cc cc3
4 dd dd4
5 ee e5
6 ff ff6
7 gg gg7
8 hh hh8
9 ii ii9
10 jj jj10
11 kk kk11
ーーーーーー
非表示状態
2 bb bb2
4 dd dd4
5 ee e5
8 hh hh8
9 ii ii9
11 kk kk11
ーー
実行後
Sheet2
1 aa aa1
3 cc cc3
6 ff ff6
7 gg gg7
10 jj jj10
珍奇な質問で簡単には出来ず、VBAでやるなど質問者には無理だろう。
それとも非表示にそた、特徴に立ち戻って、その特徴のあるものを
抜き出すことをかんがえるとか。
しかし関数では面倒。
フィルタオプションの設定で出来る課題かどうかだ。