マクロの相対参照、絶対参照

マクロを使い始めたばかりなんですけど
相対参照と絶対参照で困ってます

任意のセル（Ａ１とする）を選択しておいてマクロの開始
Ｂ１のセルをコピー
最初のセル（Ａ１）に貼り付け

としたいんですけど

Ｂ１のセルをコピー、を絶対参照にして
最初のセル（Ａ１）に貼り付け、を相対参照にしてマクロに記録しました

そのマクロをＣ１で使うと
Ａ１のセルにＢ１のセルを貼り付けてしまいます

Ｃ１でマクロを使えばＢ１のセルをＣ１に貼り付けるようにはどうすればいいのでしょう

分かりにくい説明で申し訳ありません

No.4 ベストアンサー 回答者： merlionXX 回答日時： 2007/06/07 12:50

#3です。

>　やっぱりWithを使わないと駄目なんですね
いえ、関係ないですよ。
以下のように、ActiveSheetをたくさん書くのは見苦しいのでWith～End Withでまとめただけです。

Sub TEST1()
Set Rng = ActiveCell
ActiveSheet.Columns("A:A").Copy
ActiveSheet.Columns("A:A").PasteSpecial Paste:=xlValues
ActiveSheet.Range("B1:B10").Copy
Rng.Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

この回答へのお礼

なるほど
Set　しろってことですね
わかりました

マクロ記録ボタン押してるだけじゃ無理なのね
ＶＢＡがんばります

お礼日時：2007/06/12 11:43

No.3 回答者： merlionXX 回答日時： 2007/06/06 18:00

> Ａ１～Ａ１００の任意の１つのセルを選択しておいて

>
> マクロ開始
> Ａ列全体をコピー、Ａ列全体に値のみ貼り付け
> 最初に選択されていたセルにＢ１：Ｂ１０を貼り付け

Sub TEST1()
With ActiveSheet
Set Rng = ActiveCell
.Columns("A:A").Copy
.Columns("A:A").PasteSpecial Paste:=xlValues
.Range("B1:B10").Copy
Rng.Select
.Paste
End With
Application.CutCopyMode = False
End Sub

この回答へのお礼

やっぱりWithを使わないと駄目なんですね
その辺から勉強しないと

お礼日時：2007/06/07 09:57

No.2 回答者： hana-hana3 回答日時： 2007/06/06 16:35

左隣のセルにコピーするならこんな感じでしょうか。

Sub sample()
ActiveCell.Copy ActiveCell.Offset(, -1)
End Sub

No.1 回答者： zap35 回答日時： 2007/06/06 16:20

Ｂ１セルをアクティブセルに貼り付けたいということですか？

Sub Macro1()
　Range("B1").Copy
　ActiveSheet.Paste
　Application.CutCopyMode = False
End Sub

Sub Macro2()
　Range("B1").Copy Destination:=ActiveCell
End Sub

例えば、上記（２パターン）のような書き方があります。

この回答へのお礼

実はＡ１～Ａ１００ぐらいまでデータが記録されていて

Ａ１～Ａ１００の任意の１つのセルを選択しておいて

マクロ開始
Ａ列全体をコピー、Ａ列全体に値のみ貼り付け
最初に選択されていたセルにＢ１：Ｂ１０を貼り付け
マクロ終了

としたいんですけど
なかなか上手くいかない

お礼日時：2007/06/06 16:55