Vba 438 ListObject（“Table1”）出现错误。DataBodyRange.PasteSpecial

我在以下位置收到运行时错误：

z = lr1 + x - 1
With Worksheets("b")
    .Activate
    .Cells(2 + i, 2).Copy
     '(error in here)---------------v
    .ListObjects("Tabela20").DataBodyRange(z, 1).PasteSpecial Paste:=xlPasteValues
 End With

我尝试过使用“.paste”或将工作表（“b”）更改为活动表 或

---

这个宏一周前就工作了。

你能建立一个宏吗？并通过在错误前的行上写入

MsgBox z

来检查

z

的值。可能它比

Tabela20

的行多多少少。z没关系，即使我用任何数字代替它，我也会得到一个好的错误。现在真的，试着创建一个，并发布它。发布一个如何

Tabela20

的屏幕截图，你的问题会很快得到解决。当我在表中再添加两行时，这个问题就解决了。为什么它不适用于单行表（+标题）？不知道。对你来说，最好的办法就是建立一个。

z = lr1 + x - 1
With Worksheets("b")
    .Activate
    .Cells(2 + i, 2).Copy Destination:=.ListObjects("Tabela20").DataBodyRange(z, 1)
 End With