Sub 查找上色()
dim s,c,K
s = InputBox("请输入查找的编号", , 202208)
With Sheet2.[B:B]
Set c = .Find(s, LookIn:=xlValues, After:=[B1], SearchOrder:=xlByRows)
If Not c Is Nothing Then
Do
c.Interior.Colorindex = 3
K=K+1
Loop until K=1
End With
End Sub
查找一次重复值并上色
于 2022-08-26 14:24:23 首次发布