[已解决]清空同一列中重复值

wzwbob

又遇到新问题，请教各位大虾帮忙！原始数据有上万行，附件只是其中一小部分样本。先谢了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-7 19:53

1. Sub test()
   
2.     Dim arr
   
3.     arr = Range("a1").CurrentRegion
   
4.     Dim i As Long, j As Long
   
5.     If Not IsArray(arr) Then Exit Sub
   
6.     For i = UBound(arr) To LBound(arr) + 1 Step -1
   
7.         For j = 1 To 3
   
8.         If arr(i, j) = arr(i - 1, j) Then arr(i, j) = ""
   
9.         Next
   
10.     Next
    
11.     Range("a1").Resize(UBound(arr), UBound(arr, 2)).Value = arr
    
12. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

ABC重复列用空格代替吧？

wzwbob

可以这么理解，也不一定3列，有一列能替代掉也可以

hwc2ycy

1. Sub test()
   
2.     Dim arr
   
3.     arr = Range("a1").CurrentRegion
   
4.     Dim i As Long, j As Long
   
5.     If Not IsArray(arr) Then Exit Sub
   
6.     For i = UBound(arr) To LBound(arr) + 1 Step -1
   
7.         For j = 1 To 3
   
8.         If arr(i, j) = arr(i - 1, j) Then arr(i, j) = ""
   
9.         Next
   
10.     Next
    
11.     Range("a1").Resize(UBound(arr), UBound(arr, 2)).Value = arr
    
12. End Sub

复制代码

wzwbob

非常感谢！         

hwc2ycy

wzwbob 发表于 2013-5-7 20:04
非常感谢！

有没有问题?

wzwbob

没有问题，很好用，谢谢！

kanndy

用函數公式就可以搞定，“=COUNTIF($A$1:$A$19,A1”

UFO3-5013	UFO3-5013	UV Flexocure Force  UV PMS7637C DEEP RED	UFO3-0001-408N	30.3		6
UFO3-5013	UFO3-5013	UV Flexocure Force  UV  PMS7637C DEEP RED	UFO3-0082-408N	27		6
UFO3-5013	UFO3-5013	UV Flexocure Force  UV  PMS7637C DEEP RED	UFO8-0082-408N	4.8		6
UFO3-5013	UFO3-5013	UV Flexocure Force  UV  PMS7637C DEEP RED	UFO0-0061-408N	24.3		6
UFO3-5013	UFO3-5013	UV Flexocure Force  UV  PMS7637C DEEP RED	UFO5-0082-408N	2.9		6
UFO3-5013	UFO3-5013	UV Flexocure Force  UV  PMS7637C DEEP RED	UFO1-0082-408N	10.7		6
UOP3-8027	UOP3-8027	ithocure Premium   UV  RED INK	UOP0-0061-409N	72.7		3
UOP3-8027	UOP3-8027	ithocure Premium   UV  RED INK	UOP3-0016-409N	11.4		3
UOP3-8027	UOP3-8027	ithocure Premium   UV  RED INK	UOP3-0007-409N	15.9		3
UOP3-8027-521N	UOP3-8027	ithocure Premium   UV  RED INK	UOP3-8027	1		2
UOP3-8027-521N	UOP3-8027	ithocure Premium   UV  RED INK	XP86-8521	1		2
UOP6-8019	UOP6-8019	Lithocure Premium   P&G0497 GREEN	UOP5-0080-409N	44.1		3
UOP5-8027-521N	UOP5-8027	Lithocure Premium   P&G0652 BLUE	UOP5-8027	1		2
UOP5-8027-521N	UOP5-8027	Lithocure Premium   P&G0652 BLUE	XP86-8521	1		2
UOP6-8017	UOP6-8017	Lithocure Premium   P&G0061 GREEN	UOP6-0051-409N	60.7		3
UOP6-8017	UOP6-8017	Lithocure Premium   P&G0061 GREEN	UOP8-0080-409N	26.1		3
UOP6-8017	UOP6-8017	Lithocure Premium   P&G0061 GREEN	UOP1-0035-409N	13.2		3
UOP6-8019	UOP6-8019	Lithocure Premium   P&G0497 GREEN	UOP1-0035-409N	48.4		3
UOP6-8019	UOP6-8019	Lithocure Premium   P&G0497 GREEN	UOP8-0080-409N	7.5		3

標紅色的部份數字大於1的都是重複的。