在多張包含相同關鍵字的工作表中刪除多行

Question

我有一個Excel文件，其中包含約50張紙，所有紙都具有相同的列。

但是，我想刪除所有表中位於第6 /最后一列的包含相同關鍵字"MARTIN"的整個行。

我試圖一次選擇所有工作表，然后刪除行，但它僅適用於一張工作表。

因此，如果有辦法通過excel選項或vba做到這一點，那么我很樂意提出建議。

謝謝

Answer 1

一種更快的方法是使用快捷方式刪除該行，然后轉到下一頁：

假設您要刪除第六行：

1. 轉到第六行，然后按Shift+Space這將突出顯示整個行
2. 刪除行Ctrl + - （Ctrl和減號）
3. 然后要從第一頁轉到第二頁，請Ctrl + Page Down btn

如果您真的想節省時間並了解VBA，則可以創建一個簡短的腳本。 不幸的是，我在Mac上，因此我現在無法進行測試，但是我找到了一個很好的鏈接，可以在這里逐步引導您

希望這可以幫助！

Answer 2

您可以嘗試：

Option Explicit

Sub test()

    Dim ws As Worksheet
    Dim LastRow As Long, i As Long

    'Loop all sheets
    For Each ws In ThisWorkbook.Worksheets

        With ws
            'Find the last row of column 6
            LastRow = .Cells(.Rows.Count, 6).End(xlUp).Row

            'Loop all rows in column 6 starting from the last one
            For i = LastRow To 1 Step -1
                'If the value is "MARTIN" then delete
                If .Cells(i, 6).Value = "MARTIN" Then
                    .Rows(i).EntireRow.Delete
                End If

            Next i

        End With

    Next ws

End Sub