效果

代碼

Sub HighlightDuplicateValues()Dim myRange As RangeDim myCell As RangeSet myRange = SelectionFor Each myCell In myRangeIf WorksheetFunction.CountIf(myRange, myCell.Value) > 1 ThenmyCell.Interior.ColorIndex = 3End IfNext myCell End Sub

總結

以上是生活随笔為你收集整理的2.Excel vba开发-从选择中突出显示重复项的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。