使用VBA向表中的特定行添加值

Question

我想在不引用单元格编号的情况下向表中的特定行添加一些值

我有这个

Dim LO As ListObject
Set LO = Sheets(1).ListObjects("table1")

LO.ListColumns("USER").DataBodyRange = "John"

但是，这将对表中的每一行重复一次，我该如何获取它，使其仅一行，而不必尽可能地专门引用单元格

Answer 1

您已将相关单元格缩小到单个USER列，而标题没有。只需将您的相对行号添加到DataBodyRange。

Dim LO As ListObject
Set LO = Sheets(1).ListObjects("table1")

'put 'John' in first row of USER
LO.ListColumns("USER").DataBodyRange(1) = "John"