如何使用VBA根据输入的单号（eg.N1173）,然后点击按钮后直接删除Excel（多个sheet）中的某一行
问题描述：
如题：
表格中有多个SHEET，想用一个VAB，当在“编辑框”中输入某一个单号，点击“按钮”后，可以直接删除某个sheet的某一行。
我现在操作是，在每一个sheet中Ctrl+A，后Ctrl+F。如果搜到了这个单号，就删除这一样。如果没有这个sheet中没有，那么就换下一个sheet，继续这样的操作。感觉很麻烦。
答
按钮指定宏为下面的这个脚本就行,有帮助麻烦点个采纳【本回答右上角】，谢谢~~有其他问题可以继续交流~
Sub search()
s = TextBox1.Text
If s <> "" Then
For i = 1 To Sheets.Count
Set r = Sheets(i).Range("A:A").Find(s)'注意修改Range的参数，这里假设第一列A为订单所在列，不是的改为其他列
If Not (r Is Nothing) Then '
Sheets(i).Rows(r.row).Delete
End If
Next
End If
End Sub
答
是否连接了数据库呢？写delete语句删除。