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

質問

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

回答No.1

taisuke555 · ベストアンサー

こんなのでよろしいでしょうか？
range("A1") → Range("A1").Row & "," & Range("A1").Column
cells(1,1) → Cells(1, 1).Address(False, False)
()や""は付けていません

回答No.2

imogasi

使い道がはっきり伝わらないのですが、下記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