セルの値だけを貼り付けるマクロ：アクティブの1行下

質問

セルの値を
　そのセルの1行上のセルの値と同じものにする。
　・・・というマクロを組んでいます。それに関して多くの方よりアドバイスを頂戴しました。

次のような数式で、ひとまず上手くいきました。
Cells(RR, 7) = Cells(RR - 1, 7).Value
　　（RRとは、アクティブになっているROWを、AS　LONG　として宣言したものです。）

■次に、「（RR,2）　・・・　すなわち、2列目のセルについては（G７）セルの値だけを貼り付けたかったので、・・・頂戴したアドバイスを元に、いろいろ試し・・・たのですが、うまくいきません。

　具体的には、次のような数式をトライしました。
　↓

Range(RR, 2).Value = Range("G7").Value　・・・これで、ダメだったので、

Cells(RR, 2) = Cells("G7"）.value　・・・でも試しましたが、ダメでした。

　このような場合は、どうしたらよいでしょうか？

　アドバイスを、どうぞよろしくお願いいたします。

回答No.4

keithin · ベストアンサー

＞Range(RR, 2).Value = Range("G7").Value　・・・これで、ダメだったので、
＞Cells(RR, 2) = Cells("G7"）.value　・・・でも試しましたが、ダメでした。

正解は
cells(rr, 2).value = range("G7").value
です。

お礼

シンプルで、完璧…でした。
　まさに求めていたものでした…。

　ご回答、どうもありがとうございました！

回答No.3

FEX2053

確かに皆さんの処理で全く問題ないのですが、経験上、
セル上のデータをいじる場合、一旦変数に取りこんだ方が
トラブルが少ない気がします。ま、処理速度は多少落ち
ますけど、それが問題になる場面は少ないと思うので。

ですので、私が組むとするなら・・・。

TMP_DATA = Selection.Offset(-1).Value
Selection.Value = TMP_DATA

とか言う感じで、アクティブセルを動かしながら処理すると
思うんですが・・・。

お礼

オフセットというものについて、
　さらに勉強になりました…。

　ご回答、どうもありがとうございました！　

　処理速度も、けっこう見落とせないファクターですからね…。

回答No.2

watabe007

>すなわち、2列目のセルについては（G７）セルの値だけを貼り付けたかったので
With Range("G7")
　　.Offset(, 2).Value = .Value
End With

アクティブセルのセルの値を２列目に貼り付けるなら
With ActiveCell
　　.Offset(, 2).Value = .Value
End With

お礼

このたびも、本当にどうもありがとうございます。
　今回は、オフセットよりも、別の方法が効きました。

　ですが、前回のやりとりには、心より感謝しております。

　今回も、withという関数は初めて見ましたので、参考になりました!

　ご回答を頂き、どうもありがとうございました…　　m(_ _)m

回答No.1

atamagawarui5

Cells(RR - 1, 7).Copy
Cells(RR, 7) ).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

お礼

コピー→ペーストの手順ですね！
参考にさせていただきました。
ご回答、どうもありがとうございました！