Excel VBA将公式动态添加到最后一列的单元格中

我是VBA新手，正在寻找将公式添加到工作表最后一列的方法。问题是此列之前的列数将更改。到目前为止，我的代码是：

Dim LastColumn As Long
Dim LastRow As Long
Dim r, count As Range
Dim temp As Integer

ActiveSheet.Name = "Sheet1"

Set sht = ThisWorkbook.Sheets("Sheet1")
  
    LastRow = Range("A" & Rows.count).End(xlUp).Row
    With ActiveSheet
    .Cells(1, .Cells(2, .Columns.count).End(xlToLeft).Column + 1).Value = "Index"
    End With
    
    With ActiveSheet
    .Cells(2, .Cells(2, .Columns.count).End(xlToLeft).Column + 1).Formula = "SUM(LEN(LastColumn)-LEN(SUBSTITUTE(LastColumn,".jpg","")))/LEN(".jpg")"
    End With

我使用的公式查看了最后一列的数据，其中包含多个文件名。我试图在该列上创建一个索引，告诉我该单元格中存在多少个文件名，因为宏的另一部分会根据该值插入行。任何帮助都将不胜感激

---

Joe

使用R1C1表示法来指代要输入公式的列左侧的列

With ActiveSheet
    .Cells(2, .Cells(2, .Columns.count).End(xlToLeft).Column + 1).Resize(LastRow - 1).FormulaR1C1 = "=SUM(LEN(RC[-1])-LEN(SUBSTITUTE(RC[-1],"".jpg"","""")))/LEN("".jpg"")"
End With

---

使用R1C1表示法表示要输入公式的列左侧的列

With ActiveSheet
    .Cells(2, .Cells(2, .Columns.count).End(xlToLeft).Column + 1).Resize(LastRow - 1).FormulaR1C1 = "=SUM(LEN(RC[-1])-LEN(SUBSTITUTE(RC[-1],"".jpg"","""")))/LEN("".jpg"")"
End With

---

太好了！谢谢有没有一种方法可以复制相邻列的长度？Joseph我已经更新了我的答案。太棒了。谢谢太好了！谢谢有没有一种方法可以复制相邻列的长度？Joseph我已经更新了我的答案。太棒了。谢谢