首页 > 解决方案 > VBA Excel - 在过滤的行中使用偏移量

问题描述

我正在删除多张纸中的一行。我只想问我的代码有什么问题吗?所以,在我继续删除部分之前,我首先检查我要删除的数据是否是要选择的数据。所以我试图在我的过滤表中将颜色放在结果的首位,但不幸的是,它为我的表中的第一个数据着色,而不是在过滤表中。

Sub del_stud()

    Dim LRN As String, ws As Worksheet
    
    LRN = ThisWorkbook.Sheets("HOME").Range("K11").Value
    
    For Each ws In Sheets(Array("STUDENTS_INFO", "G1-Q1", "G1-Q2"))
    
            With ws.Cells(8, 3)
                .AutoFilter Field:=2, Criteria1:=LRN
                '.Offset(1).EntireRow.Delete
                .Offset(1).EntireRow.Interior.ColorIndex = 3
            End With
   
     Next ws
     
End Sub

这是我的工作表的视觉效果

图片

标签: excelvba

解决方案


推荐阅读