Excel VBA如何获取表格新增列数据区域遍历设公式及排查报错

问题1：获取新增列可遍历的正文数据区域，逐单元格设置公式 #

.ListColumns(position).DataBodyRange本身就是原生的Range对象，不需要做额外类型转换，直接遍历其Cells集合即可实现逐单元格操作。
注意：如果ListObject当前只有表头、没有任何数据行，DataBodyRange会返回Nothing，直接操作会触发运行时错误，需要先做非空判断。
参考实现代码：

position = 1 ' 支持传入1、5、12等目标位置值
Dim targetTable As ListObject, targetCol As ListColumn, dataRng As Range, cell As Range
' 先把表格对象赋值给变量，避免重复写长路径，也减少时序报错
Set targetTable = ActiveWorkbook.Sheets(PREPARE_CALC_SHEET).ListObjects(PREP_CALC_TABLE_NAME)
With targetTable
    .ListColumns.Add Position:=position
    Set targetCol = .ListColumns(position)
    targetCol.Name = "Title" ' 直接通过ListColumn的Name属性设置表头，比选中HeaderRowRange赋值更稳定
    
    ' 存在数据行时才遍历正文区域
    If Not .DataBodyRange Is Nothing Then
        Set dataRng = targetCol.DataBodyRange
        ' 逐单元格循环设置
        For Each cell In dataRng.Cells
            ' 可根据单元格行号、相邻列值自定义不同逻辑，无需统一公式
            cell.Formula = "=1*9"
        Next cell
    End If
End With

问题2：设置公式时代码弹出调试报错的排查 #

你贴的两行代码里，第二行报错90%以上的原因是VBA公式参数分隔符用错：
VBA中给Range的.Formula属性赋值时，强制采用EN-US区域的公式语法，函数参数必须用英文逗号,分隔，不能使用你在Excel单元格手动输入时用的分号;——分号是跟随系统区域设置的本地列表分隔符，仅在界面手动输入公式时生效，直接写在VBA的Formula属性里会被识别为非法公式。
其他可同步排查的点：

• 确认当前ListObject中确实存在Sort2/Sort3/Sort4/Sort7这几个列名，列名不要带多余的前后空格，拼写完全匹配
• 确认目标工作表未开启保护，目标列未被锁定禁止编辑
• 新增列后不要直接用链式调用立刻访问列属性，建议先把列对象赋值给变量后再操作，避免新增操作未完成导致的对象找不到错误
  修正后的代码：

.ListColumns(1).DataBodyRange.NumberFormat = "General"
' 把公式里的分号全部替换为英文逗号即可
.ListColumns(1).DataBodyRange.Formula = "=CONCATENATE([@Sort2],[@Sort3],[@Sort4],[@Sort7])"

补充：如果一定要使用本地分隔符写公式，可以把.Formula换成.FormulaLocal属性，这种写法兼容性极差，换一台不同区域设置的电脑就会报错，不推荐使用。

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