焊接SQE你想一秒批量删除excel特等数值的行吗?来看看这个VBA 语句

大家好，今天给大家分享一个实用的Excel技巧，教大家如何使用VBA宏快速删除特定数值并且保留第一个出现的数值。在日常工作中，我们经常遇到大量删除特定数值的文件，学会这个技巧，让你轻松应对！

       下面，我将教大家如何编写一个VBA宏，以下是具体步骤：

1. 打开Excel，按下“Alt + F11”键，进入VBA编辑器。

2. 在菜单栏选择“插入”→“模块”，新建一个模块。

3. 在模块窗口中，复制以下代码：

Sub DeleteDuplicateRowsKeepFirst()

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim i As Long

    Dim delRange As Range

    Dim seenValues As Object

    Set seenValues = CreateObject(“Scripting.Dictionary”)

    Set ws = ThisWorkbook.Sheets(“Sheet1”)

    lastRow = ws.Range(“b65536”).End(xlUp).Row

    For i = lastRow To 1 Step -1

        Dim cellValue As Variant

        cellValue = ws.Cells(i, 2).Value

        If cellValue = 3 Then

            If Not seenValues.Exists(cellValue) Then

                seenValues.Add cellValue, True

            Else

                If delRange Is Nothing Then

                    Set delRange = ws.Rows(i)

                Else

                    Set delRange = Union(delRange, ws.Rows(i))

                End If

            End If

        End If

    Next i

    If Not delRange Is Nothing Then

        delRange.Delete

        MsgBox “done”

    Else

        MsgBox “not found”

    End If

End Sub

复制了这个VBA宏，相信大家在处理Excel表格时会更加得心应手。快去试试吧，让工作效率翻倍！