使用最后使用的列號的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＆“）”