VBAで上下のセルを入れ替えるには？

質問

次のようなことをしたいのですが、なかなかうまくいきません。

(1)任意のセル（例えばB2）にカーソルを置いて、
(2)マクロを実行すると、
(3)１つ下のセル（(1)の例ならB3）と内容が入れ替わり、
(4)そのセル（B3）にカーソルが移動して終了。

セルの入れ替えを頻繁にする仕事をしているので、上記の動作ができるととても助かります。
いろいろ試したのですが、VBAは初心者なのでなかなかうまくいきません。

どうかよろしくお願いします。

回答No.2

watabe007 · ベストアンサー

>任意のセル（例えばB2）にカーソルを置いて
一旦、Activecellの値を変数に格納して入れ替えするだけですよ

Dim tmp As Variant
With ActiveCell
　　tmp = .Value 'ActiveCellの値を変数に格納
　　.Value = .Offset(1).Value 'ActiveCellに下のセルの値を記述
　　.Offset(1).Value = tmp '下のセルに変数に格納した値を記述
End With

回答No.4

keithin

セルを入れ替えてみます。

sub macro1()
　selection.offset(1).cut
　selection.insert shift:=xlshiftdown
　selection.offset(1).select
end sub

セルを入れ替えるのと内容を入れ替えるのとでは、出来ることも結果も違うので、何をしたいのかよく見て使ってください。

回答No.3

mu2011

一例です。

Sub sample()
With Selection.Resize(1, 1)
a = .Value
.Value = .Offset(1)
.Offset(1).Value = a
.Offset(1).Select
End With
End Sub

お礼

ありがとうございました。１つの動作でもいろいろなやり方があるのですね。勉強になりました。

回答No.1

kuma56

まず、日本語の問題！
質問文を読み返してみても、現状が書いてあるだけで質問点は何？・何が知りたいのか？　"どうかよろしくお願いします。 "　だけでは判らないけど。
ひょっとして、VBAを作れという　丸投げ　か？？？

・・・・・・・・・・・・・・・・・・・・・・・・・・　　
は、さておいて
>いろいろ試したのですが、VBAは初心者なのでなかなかうまくいきません。
ならば、どういう事を試して、その結果何が上手くいかないのかを書いておいて方が、解決が早いと思うよ。
質問者のスキルも推測しやすいからね。
例えば、
選択したセルを切り取って、
相対的に二つ下のセルに張り付けて、
そのセルと一つ上のセルを併せて切り取り
一つ上のセルに張り付けて、
一つ下を選択する
こんな動作などを、マクロの記録で作ってみればいいと思うが、どうだろう？
もしかして、もう一つ条件として、"入れ替える二つのセル以外は使わない"っというのがあるのかな？？

お礼

アドバイスありがとうございました。
マクロの記録などを使って、それを任意のセルに応用できるようにやっていたのですが、うまくいきませんでした。これから勉強しようと思いますので、今度からうまくいかなかった部分を具体的に質問します。