エクセルで複数のセルを選んでのコピー

Question

よろしくお願いします。
エクセル２０１０を使っています。

エクセルで複数のセルを選んでのコピーは可能でしょうか？
下記の図の色塗りをしているところだけを選んでコピーなどできますか？
できれば、データとデータの間のセルの数を同じにしたままでのコピーのような
ことができればと思っています。

複数のセルを選んでのコピーはできません、というようなメッセージが出てくるのですが

一つ一つコピーをするよりは全部選択してコピーをするほうが楽なので。。。

何か方法があったら教えてください。

mu2011 · Accepted Answer

>エクセルで複数のセルを選んでのコピーは可能でしょうか？
>コピー先へはセルの間の行数も変わらない形で貼り付け
　⇒この要件ではマクロ（ＶＢＡ）以外は厳しいとと思う。

お遊びマクロ例です。
（１）お試しで対象シートのタブ上で右クリック→コードの表示（VBE画面表示）→
　　　以下のコードを貼り付け
（２）対象の不連続セルを選択→マクロを実行
（３）因みにマクロ削除は、貼り付けたコードをクリア、VBE画面を終了すればＯＫです。

Sub sample()
On Error Resume Next
Set base = Application.InputBox("コピー先セルを入力してください。", Type:=8)
If base Is Nothing Then Exit Sub
For Each a In Selection
If b = "" Then b = a.Row: c = a.Column
   base.Offset(a.Row - b, a.Column - c) = a.Value
Next
End Sub

keithin · Answer

ん？　ヒトの説明を聞いていますか？

先の回答をしたように操作することで，飛び飛びのデータをそこだけコピーできる方法を説明していますよ。

＃ていうかそもそも，ヒトの回答使って他の人に質問するって，なんかすごく失礼なんですけど。どういうつもりなんですか。何も考えてないんでしょうけど。

CoalTar · Answer

何も考えずコピペした後消すっていうのは？

1. コピペ
2. 選択状態のまま[Ctrl]+[H]置換
3. [オプション] 
4. 検索する文字列 *
5. [書式]|パターン|色なし
6. すべて置換
(添付画像はXL2002)

noname#146898 · Answer

Excel2010上で「そのコマンドは複数の選択範囲に対して実行できません。」と表示されるときは、同一ではない列範囲（若しくは行範囲）を選択範囲として選んだ場合に表示されます。
同一の列や行上の一範囲（４角形）に限られます。

同一の列や行の上の一範囲でその現象が起きるのはシートがグループ化されている場合です。

keithin · Answer

そのメッセージが出るのは「コピーするとき」じゃなく，「貼り付け」を行うときです。
つまり，飛び飛びのセルはコピーできますが，飛び飛びのセルに貼り付けることが出来ません。

結論から言うとご質問でヤリタイ事は基本「できない」のですが，そこを敢えて行うなら，次のような方法は可能です。

手順：
３列１行に「タイトル」と記入し，３列にオートフィルタを取り付ける
オートフィルタで「黄色いセル」などの方法でコピーしたい行だけに絞り込む
絞り込まれたセル範囲を選択し，選択範囲の右下のフィルボタンで「右に」１列オートフィルドラッグする
オートフィルタを解除する（添付図参照）

４列２行から４列９行に黄色いセルだけがコピーされているので，４列２行から４列９行までの範囲を「まとめて選んでコピー」する。飛び飛びのセルを選んでコピーするのではないので，間違えないように注意。
目的のセルを選び，形式を選んで貼り付けで「空白のセルを無視する」にチェックを入れてＯＫする。

asuncion · Answer

コピー後にどういう結果になることを想定されていますか？

K66_FUK · Answer

普通に出来るが。
色を付けた所だけをやるっていうのなら、少ないなら色のついたセルの横に何でもいいのでフラグ立てて（1とかワイルドカードとか）、オートフィルタでフィルタ状態にして、1でフィルタかければ色のついたところだけ残りますのでコピーしたらいいですよ。
たくさんあるようでしたら、特定の条件下で色を付ける方法もあり、その条件を満たした場合のみフラグを立てる等可能ですので、いろいろやって見てください。

エクセルで複数のセルを選んでのコピー