VBA 現在のセル番地を記憶、復元するコート

質問

ＥＸＣＥＬ　２００３を使用しております。
現在のセル番地を記憶しておいて、後にそのセル番地へ戻るというコードを探しております。

Range("AS46").Select
　　???????ここに位置を記憶するコード??????????
If InStr(Selection.Value, "◎") > 0 Then
ActiveCell.Offset(0, -3).Select
Selection.Copy
Range("D19").Select
If Selection.Value = "" Then
PasteSpecial Paste:=xlPasteValues
　　???????ここに位置を復元するコード??????????

こんな風な感じで使います。
何卒ご教授よろしくお願いします。

以前、インターネットでやり方を見たのですが、どこにあるかわかりません。
めずらしいコードで、便利だった記憶があります。

回答No.1

akr · ベストアンサー

下記のようなことでしょうか？

dim work as Range '記憶用のオブジェクト変数の宣言
set work = Selection '記憶するコード

work.Select '復元するコード

ただし、下記の記述からすると違うのかな．．．
> めずらしいコードで、便利だった記憶があります。
珍しくはない一般的なコードですよね

お礼

これを探していました。一般的なんですね！大変、ありがとうございましたｍ－－ｍ

回答No.2

tsubuyuki

えぇと、すいません。

> Range("AS46").Select
>　　???????ここに位置を記憶するコード??????????

ってことは、現在のセル番地は"AS46"なんじゃないんでしょうか。

さておき。

Dim myRow As Integer, myCol As Integer
　　Range("as46").Select
　　myRow = ActiveCell.Row　　　'セルの行番号取得
　　myCol = ActiveCell.Column　'セルの列番号取得

で、行・列番号を取得。

　　Cells(myRow , myCol).Select　　'指定番地へ戻る

でお望みの動きに近くなりますかね。

まぁ、珍しくもなんともない、
ありきたりのコードではありますけれど。

お礼

誤った例題でしたｍ－－ｍ
ありがとうございました。