【エクセルマクロ】シート間のデータ切取⇒貼付マクロをくみたいです。

質問

シートが２つあって、それぞれ「商品・顧客マスタ３」、「取引終了データ」というシート名です。

「商品・顧客マスタ３」のシートの列Ａ～Ｋまでをドラッグしている状態で「CTRL+SHIFT+U」
をおすと、切り取り処理されて、「取引終了データ」シートの同じＡ～Ｋまでに「すべて貼り付け」されるマクロをつくりたいのですが、スキル不足からできません。ぜひ教えていただけないでしょうか？

【備考】
・「商品・顧客マスタ３」シートのドラッグしている行は様々で１行限りのときもあれば、５行（超え）等になるときもあります。列はつねにＡ～Ｋまでです。例　５行のとき⇒Ａ４０１～Ｋ４０５までをドラッグしている状態。常に連続しています。

・「取引終了データ」の貼り付け位置はＡ～Ｋ列の文字が入っていないところの一番最初の位置にしたい
　です。現在では、Ａ１～Ｋ４０２までデータがぎっちり入っていて、Ａ４０３を先頭に切り取ったデータを貼り付けしたいです。（データのはいっていないＡ列の一番上にはりつけできれば十分です。）

・貼り付け後は、「商品・顧客マスタ３」の空欄になったところを「削除」して上方向につめたいです。削除は行
　全体ではなく、列Ａ～Ｋまでとしたいです。

なお、ＥＸＣＥＬ２００２をビスタで使っています。
お手数をおかけいたしますが、ぜひよろしくお願いいたします。

回答No.1

nekoron07 · ベストアンサー

下記マクロでいかがでしょうか。
はじめに移動したい範囲を選択してからマクロ実行してみてください。
その際に、範囲指定は行単位ではなくセル単位（例えば、A401～K405までをドラッグしている状態）で行ってくださいね。
（行単位で行うと、元データも行単位で削除することになってしまいますので）

Sub Macro()
Selection.Cut
Sheets("取引終了データ").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Sheets("商品・顧客マスタ３").Select
Selection.Delete Shift:=xlUp
End Sub

お礼

さっそくのご返信ありがとうございました！
完璧に実行できました。

本当に感謝いたします。
また優しくご回答いただきまして、ありがとうございました。

他の回答者の方のコメントにもあるとおり、スキル不足というより丸投げに対してご回答いただき、感謝します。

回答No.2

imogasi

＞スキル不足と言ってながら、マクロの記録を行った形跡も無い。
どうしたことですか。
マクロの記録をとって、どこを変えるべきかを良く考えて、そこに絞って質問にしてください。丸投げにしないでください。
（１）操作で選択範囲はSelection
（２）最終行はd=Range("A65536").End(xlUp).Row
（３）最終行までの範囲は(K列までとしたとき）
Range("A2:K”& d)
でつかめるので、マクロの修正は、この３点でほぼ解決するでしょう

お礼

スキル不足は間違いですね。ご質問者さまのおっしゃるとおり、丸投げですね・・。開き直るわけではないのですが、これはいけないことでしょうか？？「はてな」のようなところに投げるのが正解でしょうか？質問する側にとっては大変助かっているのですが・・・。でも、詳しく教えてくれてありがとうございます。