エクセル 間隔が空いたデータをその間隔のままコピペ

質問

A列の５行目から１０行目までのデータと
D列の５行目から１０行目までのデータと
G列の５行目から１０行目までのデータのデータをコピーし、
それぞれをB列、E列、H列（ひとつ右側の列）に貼り付けたいのです。
（実際にはG列以降の列もコピペしたいのですが、例としてA、D、G列にしてあります）

普通にB列に貼ると、B、C、D列に貼られてしまいます。
また、書式は貼りたくないので、値のみの貼り付けにしたいのです。

今はやり方が分からないので、A列をコピペ、D列をコピペ、・・・と列毎に処理して
いますが、一度にまとめてコピペするにはどうすれば、良いのでしょうか？

回答No.2

keithin · ベストアンサー

次のようにすると出来ます。

Ｃ列、Ｆ列、Ｉ列を空っぽの何も入っていない状態にする
出来ないなら、それぞれ１列空列を挿入するのでもよい
（補足：貼り付け先のＢ列、Ｅ列、Ｈ列も空っぽにしておく）

Ａ５：Ｇ１０を丸ごと選んでコピーする
Ｂ５に形式を選んで貼り付けの「値」にマーク、空白を無視するにチェックしてＯＫする。

お礼

回答ありがとうございました。

Ａ５：Ｇ１０を丸ごと選んでコピーし、作業用スペースに貼っておく。
そこで、コピーしたくない列の値は消しておく。

そして、形式を選んで貼り付けの「値」にマーク、空白を無視する
が良さそうですね。

回答No.1

tom04

こんにちは！
＞一度にまとめてコピペするにはどうすれば、良いのでしょうか？

とありますので、マクロになってしまいますが一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim j As Long
For j = 1 To Cells(5, Columns.Count).End(xlToLeft).Column Step 3
Range(Cells(5, j), Cells(10, j)).Copy
Cells(5, j + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Next j
End Sub 'この行まで

※　A・D・G・・・と3列おきのデータ（5～10行目）を隣の列に「値」のみを貼り付けるようにしてみました。

こんな感じではどうでしょうか？m（_ _）m

お礼

回答ありがとうございました。
シンプルなマクロですから、自分で短時間で作ることが出来れば良いのですが、
そのまでの才能がありません。

質問に書き忘れてしまいましたが、マクロを使わないことが、希望でした。
もちろん、このマクロは保存しておいて、今後のために取っておきます。