我想找到一个关键字，然后对其执行操作。
Dim ws as Worksheet
Dim LastRow As Long
Dim NextRow as Long
Set ws = ActiveWorkbook.ActiveSheet
LastRow = ws.Range("A:A").Find(What:="", After:=Range("A10")).Row
NextRow = ws.Range("A:K").Find(What:="This City Is:").Row
ws.Cells(LastRow, 1) = Me.tbTextbox1.Value
ws.Cells(LastRow, 2) = Me.tbTextbox1.Value
ws.Cells(LastRow, 3) = Me.tbTextbox3.Value
ws.Cells(NextRow, 4) = "This City is: " + Me.tbTextbox4.Value
End Sub
我遇到问题的部分是NextRow。
NextRow = ws.Range("A:K").Find(What:="This City Is:").Row
就是说
“未设置对象变量或带块变量”
我试图让Textbox4行等于文本“ This City Is：”所在的位置。因为有时如果我决定在某处插入一行，我仍然希望代码遵循该术语。