マクロでの相対参照ペースト

質問

（マクロ・VBA初心者です・・・・・・）

職場で使用している掲示板で、読んだ人がチェックする為に、
書き込みの後に名前のリストをコピー→貼り付けしています。

これをマクロを使って、任意のセルを選んでマクロを実行すれば
リストが貼り付けられるようにしたいのですが、貼り付けがうまく行きません。

マクロの記録で行っているのは、
(1)名前のリストをコピー（絶対参照）
(2)コピーしたリストを貼り付け（相対参照）

なのですが、貼り付けが相対参照で行われず、絶対参照で行われてしまいます。
記録終了バーが相対参照になっているのは確認しているのですが・・・・・・。
自分なりにマクロの本を読んだりネットで探してみたりしましたが、
基本的なこと過ぎるのか解決策が見つからず、途方に暮れて質問させて頂きました。
もしかしたら何か基本的なところを見落としているかもしれませんが、
何卒宜しくお願い致します。

回答No.7

cistronezk · ベストアンサー

＞「ActiveCell.Offset(19, -3).Range("A1").Select」の行を
＞削除して試してみたのですが、マクロが動きませんでした・・・・・・。

記録したマクロを修正するには一箇所では不十分でした。失礼しました。
Offsetとかあるので、ご自分で「相対参照」対策を講じられていたのでしょうか。
しかし、コピー元を基準にすると、任意な貼り付け先の指定をするのは大変です。
むしろ、貼り付け先を選択してActiveCellとしておけば、コピー元が固定ないので考えやすいでしょう。
５行のマクロを以下のように２行にできます。

'選択セルに名前リストをコピーして選択セルにペースト
Range("D1:I1").Copy Destination:=ActiveCell
'次のセルを選択
ActiveCell.Offset(1, 0).Select

以上で、選択したセルとその右側に名前が貼り付けられます。

お礼

お教え頂いたようにプログラムしてみました。
Destinationがうまく動かなかったのですが、あれこれといじっていたら
何とか解決しました。教えて頂いたプログラムよりイケてないものになりましたが・・・・・・。
以下のプログラムになりました。

Range("D1:I1").Copy
Activecell.select
Activesheet.paste

あんなに悩んでいたものがこんな数行で解決するとは・・・・・・。
しかし、今回の質問を通じてマクロやVBAについてかなり勉強させて頂きました。
まだまだわからないことだらけながら少しずつマクロ等を考えるための基礎が
身についてきたような気がします。職場がかなりアナログで周りにパソコンを使える人が
皆無な中、皆様に色々とご教授頂けなければもっと時間と労力がかかっていたと思います。
特に何度も詳しく教えて下さったcistronezkさん、ありがとうございました。