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

質問

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

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

としたいんですけど

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

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

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

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

回答No.4

merlionXX · ベストアンサー

#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　しろってことですね
わかりました

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

回答No.3

merlionXX

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

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を使わないと駄目なんですね
その辺から勉強しないと

回答No.2

hana-hana3

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

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

回答No.1

zap35

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

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

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

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

お礼

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

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

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

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