VBA Excel - 从多个工作表中删除一行，如果它等于

Question

我目前正在删除行。我已经让它在一张纸上工作了，但我只想问有没有办法同时删除几张纸上的行？我有一个唯一的键，即 student ID，它位于所有将受到影响的工作表的 Column C 中。所以，点击删除按钮，所有带有student ID的数据都会被删除。

使用下面的代码，我可以从STUDENTS_INFO 表中删除一行。

Sub del_stud()

    Set ws = ActiveWorkbook.Worksheets("STUDENTS_INFO")
    LastRow = ws.Cells(Rows.Count, "C").End(xlUp).Row
    For r = 10 To LastRow
        If CStr(ThisWorkbook.Sheets("HOME").Range("K11").Value) = ws.Cells(r, 3) Then
            ws.Rows(r).EntireRow.Delete
            MsgBox "Student's data is now deleted!"
            Unload Me
        End If
    Next r
    
End Sub

将受到影响的工作表是STUDENTS_INFO、G1-Q1、G1-Q2、G1-Q3、G1-Q4、G2-Q1、G2-Q2、G3-Q3、G4-Q4 等。 ..我也有床单，希望不会被触及。这可能吗？

根据我的研究，它使用For Each ws In ThisWorkbook.Sheets。我尝试使用它，但它仍然删除了STUDENTS_INFO 工作表中的行，而不是多张工作表上的行。

这是我尝试过的代码。

Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Sheets
        LastRow = ws.Cells(Rows.Count, "C").End(xlUp).Row
        For r = 10 To LastRow
            If CStr(ThisWorkbook.Sheets("HOME").Range("K11").Value) = ws.Cells(r, 3) Then
                ws.Rows(r).EntireRow.Delete
                MsgBox "Student's data is now deleted!"
                Unload Me
            End If
        Next r
    Next ws
    
Application.ScreenUpdating = True

Answer 1

我同意 @urdearboy 的建议，即使用过滤器删除行 - 加上循环遍历您指定的工作表数组。以下代码假定学生 ID 来自 HOME 表上的单元格 K11。您可以根据需要从阵列中添加/删除工作表。

试试下面的方法，让我知道你的进展。

Option Explicit
Sub del_stud()
Dim StudID As String, ws As Worksheet

'Get the filter criteria from cell K11 in the HOME sheet
StudID = ThisWorkbook.Sheets("HOME").Range("K11").Value

'Do the STUDENTS_INFO sheet by itself
With ThisWorkbook.Sheets("STUDENTS_INFO").Cells(8, 3).CurrentRegion
    .AutoFilter 1, StudID
    .Offset(1).EntireRow.Delete
    .AutoFilter
End With

'Do the other generic sheets next - add/remove sheets as required
For Each ws In Sheets(Array("G1-Q1", "G1-Q2"))

    With ws.Cells(9, 3).CurrentRegion
        .AutoFilter 1, StudID
        .Offset(1).EntireRow.Delete
        ws.AutoFilterMode = False
    End With

Next ws

End Sub