Question

我想在数据表中插入一行。当我手动尝试（选择行，插入新行）时，它工作得很好，但是当我尝试将它添加到我的宏中时，它在ActiveX按钮（！）中，它表示＆＃34;运行时错误438：对象确实不支持这种方法＆＃34;。如果我在通常的宏中尝试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

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

1 个答案: