0

我一直在绞尽脑汁试图解决这个问题，我敢打赌这非常简单，但答案却让我难以捉摸！

我正在尝试通过宏按钮向 Excel 中的过滤表添加新行。该宏在表格未过滤时起作用，但由于客户要求，无论表格如何过滤，他们都希望添加行。用户使用列标题下拉列表来过滤表格 - 有时一次应用三个或过滤器。

这是我正在使用的当前 VBA 代码；

Public Sub Add_new_row_2()
    Dim tbl As ListObject
    Dim rw As Range

    Set tbl = Sheets("Master Input").ListObjects(1)
    Set rw = tbl.ListRows.Add.Range
    
    Sheets("Data").Range("CF2:KX2").Copy rw
End Sub

该代码复制位于单独选项卡上的范围 (CF2:KX2) 内的完全格式化的空白行，并将该行粘贴到表格底部。它在表格未过滤或排序时运行良好，但是当用户尝试应用多个列过滤器时，他们会收到运行时错误“1004”。

尽管进行了繁重的过滤，有没有办法添加新行？

4

0 回答 0