请教：在一列数据中，如连续列中有几个内容相同，则想删除相同内容？

1042271867

版主您好！原示例中我说取的人名不正确，是当结果列中有内容，不删除，运行后还是原来内容造成的。当相连列中内容完成相同，正好有二个人名时，结果正确（保留了原来的内容），当有三个人名时结果就不对了，比如你发图片中最后两行，不是保留单元格中原来内容，而是取了最后一个人名。另外：当我的表格行数很多时，我想要的是：比如，如果S列姓名中有4个人名时，连续列中后面3个人名相同，则保留单元格中最前面一个人名，，而运行后，取的是单元格中最后一个人名（见新发附件的20335行、20336行等，在W列我标出的 均是我电脑上运行后不正确的）。麻烦老师有时间时  帮忙看看。

xiaofan1999

Sub RemoveDuplicates()
    Dim lastRow As Long
    Dim i As Long
   
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行的行号
   
    For i = lastRow To 2 Step -1 '从最后一行开始往上遍历
        If Cells(i, 1) = Cells(i - 1, 1) Then '如果当前行和上一行内容相同
            Rows(i).Delete Shift:=xlUp '删除当前行
        End If
    Next i
End Sub

1042271867

xiaofan1999 发表于 2023-4-21 17:09
Sub RemoveDuplicates()
    Dim lastRow As Long
    Dim i As Long

谢谢您 ！我想要的是：如果S列姓名中有4个人名时，连续列中后面3个人名相同，则保留单元格中最前面一个人名，如果S列姓名中有3个人名时，连续列中后面2个人名相同，则保留单元格中最前面一个人名；如果S列姓名中有2个人名时，连续列中后面1个人名相同，则保留单元格中最前面一个人名。如果S列姓名中有4个人名时，连续列中前面3个人名相同，则保留单元格中最后面一个人名，如果S列姓名中有3个人名时，连续列中前面2个人名相同，则保留单元格中最后面一个人名；如果S列姓名中有2个人名时，连续列中前面1个人名相同，则保留单元格中最后面一个人名。