用VBA为Excel表格添加列并插入VLOOKUP公式失效，求排查原因

你的公式无法生效主要是字符串拼接语法错误和对象引用不当导致，具体问题点及修正方案如下：

核心错误点 #

• Worksheet对象引用错误：原代码中CStr(wrk.Worksheets("Peer Group Stats") & "'")直接将Worksheet对象与字符串拼接，会导致类型不匹配，正确做法是调用工作表的.Name属性获取名称，而非直接转换对象。
• 字符串拼接括号位置错误：原代码将& "'"放在CStr()括号内部，破坏了字符串拼接的语法结构，导致生成的公式格式无效。

修正后的代码 #

Set wrk = ThisWorkbook
Set trg_sht = wrk.Worksheets("Peers & Instruments - Overview")
Set tbl = trg_sht.ListObjects("Peers_Instruments_Values")

' 在第26、27位添加新列
tbl.ListColumns.Add(26).Name = "Median 1Y Return"
tbl.ListColumns.Add(27).Name = "Max 1Y Return"

' 检查DataBodyRange是否存在（避免表格为空时报错）
If Not tbl.ListColumns("Median 1Y Return").DataBodyRange Is Nothing Then
    ' 修正公式拼接逻辑
    tbl.ListColumns("Median 1Y Return").DataBodyRange.FormulaR1C1 = _
        "=VLOOKUP([@[Peer Group Name]],'" & wrk.Worksheets("Peer Group Stats").Name & "'!C[-25]:C[-22],3,0)"
End If

额外注意事项 #

• 请确认'Peer Group Stats'!C[-25]:C[-22]范围是否正确：当前列是第26列，C[-25]对应第1列，C[-22]对应第4列，需保证该范围的第一列是Peer Group Name的匹配列，第三列是你要提取的Median值列。
• 如果表格初始为空，DataBodyRange会是Nothing，添加判断可避免运行时错误。

内容的提问来源于stack exchange，提问作者krakowi