VBA Excel -如何将公式放置在表中新添加的列的主体范围的单元格范围中

Question

我用它在一个现有的表中添加列。

position = 1 ' or 5 or 12
With ActiveWorkbook.Sheets(PREPARE_CALC_SHEET).ListObjects(PREP_CALC_TABLE_NAME)
.ListColumns.Add Position:= position
.HeaderRowRange.Value = "Title"
.ListColumns(position).DataBodyRange.Formula = "=1*9"
End With

如何获得刚刚添加的列内的主体单元格的范围?如何使用该范围将公式应用于这些列体单元格?我不只是想使用"。listcolumns (1). databodyrange。公式=1*9;，但要循环遍历单元格范围。

我怎么翻译这个

.ListColumns(position).DataBodyRange

到要遍历的范围?

欢迎提出任何建议

然而问题本身得到了回答，我确实在第二行得到了一个Debug对话框

.ListColumns(1).DataBodyRange.NumberFormat = "General"
.ListColumns(1).DataBodyRange.Formula = "=CONCATENATE([@Sort2];[@Sort3];[@Sort4];[@Sort7])"

为什么?

Answer 1

请尝试这样做:

With ActiveWorkbook.Sheets(PREPARE_CALC_SHEET).ListObjects(PREP_CALC_TABLE_NAME)
.ListColumns.Add Position:=Position
.ListColumns(Position).name = "Title"
.DataBodyRange.cells(1, Position).Formula = "=Today()"
End With