如何根据条件格式，将一列中重复数据单元格所在行高亮？

shawnli89 · 发表于 2016-12-27 00:25

本帖最后由 shawnli89 于 2016-12-27 00:33 编辑

问题描述看图说方便点，因为B列的2，3是重复值，想将对应列高亮。
我只知道条件格式可以把重复单元格高亮，现在是想用vba将行都高亮
顺便，单元格高亮的vba代码是

Sub test_nSelection.FormatConditions.Delete

Selection.FormatConditions.AddUniqueValues

' Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

Selection.FormatConditions(1).DupeUnique = xlDuplicate

With Selection.FormatConditions(1).Interior

' .PatternColorIndex = xlAutomatic

.Color = 65535

' .TintAndShade = 0

End With

'Selection.FormatConditions(1).StopIfTrue = FalseEnd Sub
复制代码

自己实在是不会改了，望指点，不胜感激
示例excel见楼下

shawnli89 · 发表于 2016-12-27 00:30

附件，感谢指导

john13579 · 发表于 2016-12-27 01:24

已完成了，请見附件。

jsgj2023 · 发表于 2016-12-27 07:09

Sub Adele()
Dim rng As Range, d As Object
Set d = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion
For x = 1 To UBound(arr)
If Not d.exists(arr(x, 2)) Then
d(arr(x, 2)) = x
Else
d(arr(x, 2)) = d(arr(x, 2)) & "," & x
End If
Next x
t = d.items
For y = 0 To UBound(t)
If InStr(t(y), ",") Then
s = Split(t(y), ",")
For Z = 0 To UBound(s)
If rng Is Nothing Then
Set rng = Rows(s(Z))
Else
Set rng = Union(rng, Rows(s(Z)))
End If
Next Z
End If
Next y
If Not rng Is Nothing Then
rng.Rows.Interior.ColorIndex = 6
End If
End Sub

复制代码

jsgj2023 · 发表于 2016-12-27 07:10

请见附件。

shawnli89 · 发表于 2016-12-28 00:34

jsgj2023 发表于 2016-12-27 07:10
请见附件。

感谢，想来用字典能做出来多厉害！！！这思维量绝对大神
我总算想到用条件格式做的方法了，方便后人

book_ori.Sheets(1).Range("A1").CurrentRegion.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($N:$N,$N1)>1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).Interior.Color = 65535

复制代码

顺便再问个问题，一个单元格因为条件格式高亮了，复制粘贴到别处后不再满足条件，怎样能把高亮复制过去？

jsgj2023 · 发表于 2016-12-28 09:10

是这个意思？

7testing · 发表于 2019-3-15 10:30

jsgj2023 发表于 2016-12-27 07:09

非常好用，谢谢。

		自动登录	找回密码
密码			免费注册

[求助] 如何根据条件格式，将一列中重复数据单元格所在行高亮？

最新热点 /1