VBA - см. Значения в списке объектов

Question

Я не уверен, как ссылаться на значения в таблицах, т.е. это список объектов.Я хочу установить значения одного столбца в таблице, чтобы быть равным другому столбцу в таблице.У меня много строк.

Это перед кодом:

Это результат после кода, который я хочу получить:

Поскольку это таблица, я не могу использовать простой код типа:

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

Здесь, как я былпытаясь достичь этого, обращаясь к списку объектов, но он не работает:

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

Вот хорошее руководство по таблицам здесь