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

Question

我是 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

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

乔

Answer 1

使用 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