如何使用VBA根据输入的单号（eg.N1173）,然后点击按钮后直接删除Excel（多个sheet）中的某一行

Question

如题：
表格中有多个SHEET，想用一个VAB，当在“编辑框”中输入某一个单号，点击“按钮”后，可以直接删除某个sheet的某一行。

我现在操作是，在每一个sheet中Ctrl+A，后Ctrl+F。如果搜到了这个单号，就删除这一样。如果没有这个sheet中没有，那么就换下一个sheet，继续这样的操作。感觉很麻烦。

Answer 1

按钮指定宏为下面的这个脚本就行,有帮助麻烦点个采纳【本回答右上角】，谢谢~~有其他问题可以继续交流~

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