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

Question

我尝试编写VBA代码来汇总单元格，在此过程中我使用以下语句计算最新更新的列：

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

假设我将clncnt1捕获为20，即P列。现在我该如何使用：

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

使用我刚捕获的列号clncnt1？

Answer 1

用以下

替换你的总和

"=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

这工作了wb.Worksheets（“sheet1”）。范围（“A1”）。偏移量（11，clncnt + 3）.Formula =“= sum（”＆amp; _ wb.Worksheets（“sheet1”）。范围（“A1”）。偏移量（8，clncnt + 3）。地址＆amp;“：”＆amp; _ wb.Worksheets（“sheet1”）。范围（“A1”）。偏移量（9，clncnt + 3）.Address ＆amp;“）”