[已解决]如何删除列中重复的数据而不删除行

wf370782

具体要求在附件中，先行谢过

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-10-16 15:23

不删掉，用条件格式化:

1. 条件格式化公式: =(C2=C1)*(C2>0)
2. 范围: $C$2:$C$1024
3. 自订单元格格式: ;;;

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

不删掉，用条件格式化:

1. 条件格式化公式: =(C2=C1)*(C2>0)
2. 范围: $C$2:$C$1024
3. 自订单元格格式: ;;;

祝順心，南無阿彌陀佛！

风林火山

1. Sub deldada()
   
2.     Dim arr, k As Long
   
3.     On Error Resume Next
   
4.     arr = Range("a1").CurrentRegion
   
5.     For k = UBound(arr) To 2 Step -1
   
6.         If arr(k, 3) = arr(k - 1, 3) Then arr(k, 3) = ""
   
7.     Next k
   
8.     Range("a1").Resize(UBound(arr), 3) = arr
   
9. End Sub

复制代码

wf370782

cutecpu 发表于 2021-10-16 15:23
不删掉，用条件格式化:

1. 条件格式化公式: =(C2=C1)*(C2>0)

非常感谢

wf370782

风林火山 发表于 2021-10-16 15:50

非常感谢