使用最后使用的列号的VBA编码

我想编写VBA代码来总结单元格，在这个过程中，我使用以下语句计算最新的更新列：

clncnt1 = wb.Worksheets("Sheet1").Range("XFD16").End(-4159).Column 

假设我将clncnt1作为列P中的20来捕获。现在我该如何使用：

 wb.Worksheets("sheet1").Range("A1").Offset(16, clncnt).Formula = "=sum(*P12:P13*)" 

使用我刚捕获的列号clncnt1 ？

Answer 1

用下面的来replace你的总和

 "=sum(" & Cells(12, clncnt1 ).Address & ":" & Cells(13, clncnt1 ).Address & ")" 

你实际上得到的范围的地址，然后连接在一起。 完整代码：

 clncnt1 = Worksheets("sheet1").Range("XFD16").End(-4159).Column Worksheets("sheet1").Range("A1").Offset(16, clncnt1).Formula = "=sum(" & Cells(12, clncnt1).Address & ":" & Cells(13, clncnt1).Address & ")" 

Answer 2

（“A1”）。Offset（11，clncnt + 3）.Formula =“= sum（”＆_ wb.Worksheets（“sheet1”）。Range（“A1” ）.Offset（8，clncnt + 3）.Address＆“：”＆_ wb.Worksheets（“sheet1”）。Range（“A1”）。Offset（9，clncnt + 3）.Address＆“）”