Question

我有一个列表对象，它有大量的行但过滤后只显示其中的一部分：

Dim loComplete as Listobject

我有另一个列表对象。我想将loComplete中某个列的可见值复制到此listobject中的某个列中。

Dim loOnlyFiltetedValues as ListObject

源列和目标列都被调用＆＃34;课程代码＆＃34;

到目前为止，我最好的尝试是：

Dim courseCode As Variant
courseCode = loComplete.ListColumns("Course Code").DataBodyRange.SpecialCells(xlCellTypeVisible)
loOnlyFiltetedValues.ListColumns("Course Code").DataBodyRange = courseCode

但这并不奏效。你知道解决这个问题的任何优雅方法吗？

Answer 1

复制并粘贴，我认为

courseCode = loComplete.ListColumns("Course Code").DataBodyRange.SpecialCells(xlCellTypeVisible).Copy
loOnlyFilteredValues.ListColumns("Course Code").Range.Cells(2).PasteSpecial xlPasteValues

将一个listobject中所有可见单元格的值复制到另一个空列表对象？

1 个答案: