我試圖在一列中找到一個值，然后在最后一行之后添加一行，并在找到的值之后添加資料。我遇到的問題是使用 Find 函式查找值時 - 測驗時我收到
運行時錯誤 91：未設定塊變數的物件變數
在我的故障排除程序中，我發現在嘗試訪問未找到匹配項的 Find 結果的屬性時會引發此錯誤。但是，我知道在給定范圍內有匹配項。
Private Sub CommandButton1_Click()
Dim FirstRow As Range
'issue here
FirstRow = Range("B:B").Find("SearchTerm")
' Find last row with data
With Range(FirstRow.Address).CurrentRegion
LastRow = .Rows(.Rows.Count).Row
End With
'add row
Rows(LastRow & ":" & LastRow).Insert Shift:=x1Down
End Sub
非常感謝您的幫助！
uj5u.com熱心網友回復：
您沒有正確設定物件變數的語法。你需要使用Set.
FirstRow = Range("B:B").Find("SearchTerm")
應該：
Set FirstRow = Range("B:B").Find("SearchTerm")
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/407224.html
標籤：