在數據表VBA Excel2010 ActiveX中插入新行

Question

我想在數據表中插入一行。 當我手動嘗試（選擇行，插入新行）時，它工作正常，但是當我嘗試將其添加到ActiveX按鈕（！）內的宏中時，它說“運行時錯誤438：對象不支持此操作”方法”。 如果我在通常的宏中而不是在按鈕內嘗試微距，它也可以正常工作。

我如何擺脫這個問題？

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