VBA-参考对象列表中的值

Question

我不确定如何引用表中的值，即它是一个对象列表。我想将表中的一列的值设置为等于表中的另一列。我有很多行。

这是在代码之前：

这是我想要的代码之后的结果：

因为它是表格，所以我不能使用以下类型的简单代码：

   .Columns(3).Cells = .Columns(1).Cells.Value

在这里，我是如何尝试通过引用List Object来实现它的，但是它不起作用：

With ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1")
   .ListColumns(3) = .ListColumns(1)
    ??????
End With

我将感谢您对如何正确引用它的帮助。

Answer 1

尝试

With ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1")
    .ListColumns(3).DataBodyRange.Value = .ListColumns(1).DataBodyRange.Value
End With

表here

有很好的指南