ExcelVBAで範囲を示す文字列を得る方法

Excelのマクロでシート関数を、カラムにセットするときの方法

Dim ws as WorkSheet

set ws=WorkSheets("Sheet1")
ads=ws.Range(ws.Cells(1,1),Cells(10,1)).Address(RowAbsolute:=False, ColumnAbsolute:=False)
ws.Cells(11,1).Formula="=sum(" & ads & ")"

これで、A11のカラムに
=SUM(A1:A10)
の数式がセットされる。