怎样在Excel中突显显示信息不一样色调的反复值?

摘要: 您如今的部位是:首页 > 資源共享资源 > 資源共享资源怎样在Excel中突显显示信息不一样色调的反复值?admin2019-09-30【資源共享资源】人已看热闹介绍在Excel中,大家能够用一种色调轻轻...

您如今的部位是:首页 > 資源共享资源 > 資源共享资源 怎样在Excel中突显显示信息不一样色调的反复值?

admin2019-09-30【資源共享资源】人已看热闹

介绍在Excel中,大家能够用一种色调轻轻松松地突显显示信息一列中的反复值 标准文件格式可是,有时候候,大家必须突显显示信息不一样色调的反复值,便于迅速轻轻松松地鉴别反复项,以下面的截屏所显示。 你如何

在Excel中,大家能够用一种色调轻轻松松地突显显示信息一列中的反复值 标准文件格式可是,有时候候,大家必须突显显示信息不一样色调的反复值,便于迅速轻轻松松地鉴别反复项,以下面的截屏所显示。 你如何能在Excel中处理这一每日任务?
客观事实上,大家沒有立即的方法来进行此项工作中在Excel中,可是,下边的VBA编码能够协助你,请做以下:
应用VBA编码突显显示信息具备不一样色调的列中的反复值
使用VBA代码突出显示具有不同颜色的列中的重复值
1、挑选要用不一样色调突显显示信息反复项的值列,随后按住 ALT + F11 键开启 Microsoft Visual Basic for Applications 对话框。
2、点一下 插页 控制模块,并将下列编码黏贴到 控制模块 对话框。
VBA编码:突显显示信息不一样色调的反复值:

Sub ColorCompanyDuplicates()
'Updateby Extendoffice 
 Dim xRg As Range
 Dim xTxt As String
 Dim xCell As Range
 Dim xChar As String
 Dim xCellPre As Range
 Dim xCIndex As Long
 Dim xCol As Collection
 Dim I As Long
 On Error Resume Next
 If ActiveWindow.RangeSelection.Count 1 Then
 xTxt = ActiveWindow.RangeSelection.AddressLocal
 Else
 xTxt = ActiveSheet.UsedRange.AddressLocal
 End If
 Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
 If xRg Is Nothing Then Exit Sub
 xCIndex = 2
 Set xCol = New Collection
 For Each xCell In xRg
 On Error Resume Next
 xCol.Add xCell, xCell.Text
 If Err.Number = 457 Then
 xCIndex = xCIndex + 1
 Set xCellPre = xCol(xCell.Text)
 If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
 xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
 ElseIf Err.Number = 9 Then
 MsgBox "Too panies!", vbCritical, "Kutools for Excel"
 Exit Sub
 End If
 On Error GoTo 0
 Next
End Sub
3、随后按 F5 键来运作这一编码,而且一个提醒框会提示你挑选你要要突显显示信息反复值的数据信息范畴,看截屏:
使用VBA代码突出显示具有不同颜色的列中的重复值
4、随后点一下 OK 按键,全部反复的值都以不一样的色调突显显示信息,请参照截屏: 使用VBA代码突出显示具有不同颜色的列中的重复值

很赞哦! ()



联系我们

全国服务热线:4000-399-000 公司邮箱:343111187@qq.com

  工作日 9:00-18:00

关注我们

官网公众号

官网公众号

Copyright?2020 广州凡科互联网科技股份有限公司 版权所有 粤ICP备10235580号 客服热线 18720358503