excel - 在数据表VBA Excel2010 ActiveX中插入新行

Question

我想在我的数据表中插入一行。当我手动尝试（选择行，插入新行）时，它工作得很好，但是当我尝试将它添加到我的宏中时，它位于 ActiveX 按钮内（！）它说“运行时错误 438：对象不支持这个方法”。如果我在通常的宏中尝试 mecro，而不是在按钮内部，它也可以正常工作。

我怎样才能摆脱这个问题？

Set wsd = Sheets("Data")
wsd.Select                      
With wsd
.Rows("5:5").Select
.Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'Here appears the error
End With

非常感谢您的帮助。提前致谢！

Answer 1

你不需要选择。不适用于工作表，也不适用于行。

Sub test()
Set wsd = Sheets("Data")
With wsd
    .Rows("5:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
End With

End Sub