我运行没错啊 你运行两次就不行了 因为你已经把那个记录删除了 在运行找不到那个记录所以提示错误
改哈 找不到 提示
Sub 删除指定记录()
On Error GoTo 100
Dim Y As Integer
With Sheets("学生基础信息")
Y = .[n:n].Find(Sheets("采集表").Range("c13"), Lookat:=xlWhole).Row
MsgBox Y
.Rows(Y).Delete
End With
100:
MsgBox "没有找到"
End Sub
Sub 删除指定记录()
Dim Y As Integer
With Sheets("学生基础信息")
Y = .[n:n].Find(Sheets("采集表").Range("c13"), Lookat:=xlWhole).Row
MsgBox Y
.Rows(Y).Delete
End With
End Sub
你把那行删了 再把你录入的代码叫过来就可以了
我运行没错啊 你运行两次就不行了 因为你已经把那个记录删除了 在运行找不到那个记录所以提示错误
改哈 找不到 提示
Sub 删除指定记录()
On Error GoTo 100
Dim Y As Integer
With Sheets("学生基础信息")
Y = .[n:n].Find(Sheets("采集表").Range("c13"), Lookat:=xlWhole).Row
MsgBox Y
.Rows(Y).Delete
End With
100:
MsgBox "没有找到"
End Sub