时间戳

首页 > 解决方案 > ListRows.Add 不会使相邻列中的数据下移

excel - ListRows.Add 不会使相邻列中的数据下移

问题描述

我最近编写了以下代码，以向我的 Excel 表中添加一个新行。

Sub AddRow()

    Dim loTable As ListObject
    Dim lrRow As ListRow
    Set loTable = Selection.ListObject
    
    Set lrRow = loTable.ListRows.Add

End Sub

我的问题是我希望所有单元格向下移动一行，但我的代码仅适用于包含表格的列。

我更喜欢 ListRows.Add 而不是 Insert 方法，因为它包含表的自动填充数据，而我无法使用 Insert row 方法。

我尝试了一些在 StackOverflow 上找到的解决方法，但它们似乎没有帮助，我无法弄清楚:(

有没有人知道解决这个问题？

最好的祝福 ：）

标签： excelvba

解决方案

表 ( ListObject) 独立于工作表上的其他列。

您的选择包括：

  • 用于Rows.Insert插入整行，然后自动填充表中的数据。
  • 用于在表格ListRows.Add中添加一行，然后分别移动其他单元格。

推荐阅读