Question

我的任务是从数据集中删除重复项，但是以特定的方式;我需要应用一个带有两个条件的过滤器，然后删除除第一个之外的所有可见行，我将在运行中编辑它。

我确定解决方案依赖于循环过滤每个条件并删除相关行。但是，我不确定如何去做。使用偏移是不好的;设置和偏移使用过的范围可见细胞似乎不起作用;它始终偏离第1行，而不是可见行。

范围潜水来自表格WS，而不是＆＃34;编制表格＆＃34;正在进行自动过滤和复制的地方。

    Sub Dupe_killer()

Dim List As Worksheet
Dim Dive As Range
Dim Hit As Range
Set List = Sheets.Add
Dim aRow As Range
Dim fRow As Range
Dim lRow As Range
Dim r As Range
Dim Rng As Range
Dim FilterRange As Range

With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    .DisplayAlerts = False
End With

Worksheets("Compilation Sheet").Activate

If ActiveSheet.FilterMode = False Then
    ActiveSheet.Range("A1:bc1").AutoFilter
End If

ActiveWorkbook.Worksheets("Compilation Sheet").AutoFilter.Sort.SortFields.Clear
ActiveSheet.Range("$A$1:$BC$11188").AutoFilter Field:=2, Criteria1:=RGB(255 _
    , 0, 255), Operator:=xlFilterCellColor

List.Range("A:A").Value = Worksheets("Compilation Sheet").Range("B:B").Value
List.Range("A:A").RemoveDuplicates Columns:=Array(1)

Set r = List.Range("A2")
Set Dive = Range(r, r.End(xlDown))

For Each Hit In Dive
    With Worksheets("Compilation Sheet")
    .Range("A1:BC1").AutoFilter Field:=2, Criteria1:=Hit
    .Range("A1:BC1").AutoFilter Field:=10, Criteria1:="*", Criteria2:="*,*", Operator:=xlAnd
    End With
    Set FilterRange = ActiveSheet.UsedRange.Offset(2, 0) _
    .SpecialCells(xlCellTypeVisible)
    FilterRange.Select
Next Hit

With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .DisplayAlerts = True
End With

End Sub

Answer 1

您希望将Dive中的范围设置为仅可见行。

Google

的语法

.SpecialCells(xlCellTypeVisible)

Answer 2

我想我已经破解了它。找到了一个用于选择第一个可见单元格的漂亮代码。然后我可以隐藏该行并删除所有可见的内容。

Range("A2", Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1).Select
ActiveCell.EntireRow.Hidden = True
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Delete

删除除标题和第一个可见行之外的所有行

2 个答案: