使用最后使用的列号的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”）。Range（“ 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＆“）”