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

質問

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 · ベストアンサー

ふつーに

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

みたいな。

お礼

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

回答No.2

bin-chan

.FormulaR1C1 = "=R1C1"
という方法も。

お礼

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