如何在Excel中删除重复项但保留行的其他值

重复的数据可能会使您的电子表格变得混乱，并且很难准确评估或呈现信息。但是不要担心，Excel提供了强大的功能来帮助您删除重复项，同时保留数据集中的重要数据。学习如何使用这些技术可以提高您的数据管理能力，无论您是在使用小型还是大型数据集。

删除重复项但保留行的其他值

这里我们首先创建一个VBA模块，然后运行代码来完成任务。让我们看一个简单的过程，了解如何在Excel中删除重复项但保留行的其他值。

第1步

考虑一个Excel工作表，其中包含一系列重复的值。

首先，右键单击工作表名称，然后选择“查看代码”以打开VBA应用程序。

右键单击＞查看代码。

第2步

然后点击插入，选择模块，然后将以下代码复制到文本框中。

插入＞模块＞复制。

代码

Sub RemoveDuplicates()
   Dim xRow As Long
   Dim xCol As Long
   Dim xrg As Range
   Dim xl As Long
   On Error Resume Next
   Set xrg = Application.InputBox("Select a range:", "Remove Duplicate Keep", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
   xRow = xrg.Rows.Count + xrg.Row - 1
   xCol = xrg.Column
   'MsgBox xRow & ":" & xCol
   Application.ScreenUpdating = False
   For xl = xRow To 2 Step -1
      If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
         Cells(xl, xCol) = ""
      End If
   Next xl
   Application.ScreenUpdating = True
End Sub

如何在Excel中删除重复项但保留行的其他值