Range("A1")⇔cells(1,1)の変換。

EXCELのマクロについて質問します。
Range("A1")⇒(1,1)
cells(1,1)⇒("A1")
に一発変換する方法を教えて下さい。
時間があるかた宜しくお願いします。

No.1 ベストアンサー 回答者： taisuke555 回答日時： 2002/10/29 01:05

こんなのでよろしいでしょうか？

range("A1") → Range("A1").Row & "," & Range("A1").Column
cells(1,1) → Cells(1, 1).Address(False, False)
()や""は付けていません

No.2 回答者： imogasi 回答日時： 2002/10/29 08:17

使い道がはっきり伝わらないのですが、下記Msgboxの辺り

を参考にしてください。Selectのところを適当に変えて
下さい。実際の場面では、Range("a1")もCells(1,1)も
同じように使えるので、変換する必要がある場面が想像できません。
Sub test01()
Worksheets("sheet1").Activate
'---------
Range("a1").Select
r = Selection.Row
c = Selection.Column
Range("b1") = Cells(r, c)
MsgBox "cells(" & c & "," & c & ")"
'---------
Cells(1, 1).Select
MsgBox ActiveCell.AddressLocal
r = Selection.Row
c = Selection.Column
MsgBox Chr(c + 64) & r
End Sub