按alt+F11，插入一個模組，貼上以下程式碼Sub 刪除整行()Application.ScreenUpdating = FalseDim n, r As Integern = Sheets("sheet2").UsedRange.Item(Sheets("sheet2").UsedRange.Count).RowDim a, b As Stringa = Sheets("sheet1").Range("a1")For i = 1 To nb = Sheets("sheet2").Cells(n - i + 1, 1)r = Sheets("sheet2").Cells(n - i + 1, 1).RowIf b = a Then Sheets("sheet2").Rows(r).Delete Shift:=xlUpNext iApplication.ScreenUpdating = TrueEnd Sub在在工作表裡插入一個按鈕，指定這個宏已上傳附件，親測可用