WPS实现高亮重复项是自带的功能,非常的方便快捷,现在用VBA代码来实现高亮重复项:
如上图,左边数据和右边数据是一样的,右边数据已经用WPS自带功能实现了高亮重复项,下面我们用VBA代码来实现:
Sub 高亮重复项()
Dim i As Integer
Dim arr
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
arr = Range("a1:a33")
For i = 2 To UBound(arr)
If dic.exists(arr(i, 1)) Then
dic(arr(i, 1)) = dic(arr(i, 1)) + 1
Else
dic.Add arr(i, 1), 0
End If
Next
For Each d In dic.keys
If dic(d) = 0 Then
dic.Remove (d)
End If
Next
For i = 2 To UBound(arr)
If dic.exists(arr(i, 1)) Then
Range("a" & i).Interior.ColorIndex = 12
End If
Next
End Sub
运行代码效果如下:
当然这只是一次练手,可以更好地理解数组和字典,在实际工作中就没有必要这样本末倒置了,能用基本功能实现的绝不用函数,能用函数实现的绝不用代码.因为现在的表格大多要装入平板或者手机中使用.
