列をアルファベットではなく数値で指定するには

Vbaで条件付き書式を付ける場合、
列をアルファベットではなく数値で指定するにはどうすればいいですか？

Sub Macro()
Dim i As Long
i = 1

Columns(i).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A1=""aaa"""
Selection.FormatConditions(1).Font.ColorIndex = 3 '文字色を赤にする
End Sub

この場合の、
Formula1:="=A1=""aaa"""のＡ１を
Cells(1,i)みたいにしたいのですが、やり方を教えてください。

No.1 ベストアンサー 回答者： keithin 回答日時： 2013/05/14 21:22

ふつーに

… Formula1:="=" & cells(1, i).address(false,false) & "=""aaa"""

みたいな。

この回答へのお礼

できました～ご回答ありがとうございました。

お礼日時：2013/05/15 22:34

No.2 回答者： bin-chan 回答日時： 2013/05/14 22:04

.FormulaR1C1 = "=R1C1"

という方法も。

この回答へのお礼

R1C1方式でもできるのですね。ご回答ありがとうございました。

お礼日時：2013/05/15 22:35