Question

如何在excel中删除连续重复的数据

如题，比如说
1
1
1
0
0
1
0这样保留1，0，1，0这样

Answer 1

1. vba代码如下：

Sub del()

Dim a, i

a = Range("A65536").End(xlUp).Row

For i = 2 To a

If Range("A" & i) = Range("A" & i - 1) And Range("A" & i) <> "" Then Range("A" & i).Delete shift:=xlUp: i = i - 1

Next i

End Sub

2. 效果如图所示：

Answer 2

假设含重复数据为B列。在C列输入：=if(a2<>a1, a2,"")。双击单元格右下角公式自动填充。C列空白行就是连续重复数据。筛选后删除行即可。

Answer 3

假设原始数据在A1:A100
B1=A1
B2=iferror(index($A$1:$A$100,small(if($A$1:$A$99=$A$2:$A$100,9999,row($A$2:$A$100)),row(A1))),"")数组公式，同时按ctrl+shift+enter输入，向下填充

追问

大佬不好使啊，我的excel没有反应啊

追答

我测试了可以啊，你看你的公式输入之后跟我的公式一样不，会被大括号括起来

Answer 4

Excel如何批量删除重复的数据？这个视频告诉你！