用VBA在excel中找出C列中的内容在D列中出现，并且标示出来

最新推荐文章于 2022-06-08 14:55:35 发布

weixin_30296405

最新推荐文章于 2022-06-08 14:55:35 发布

阅读量149

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/chinhr/archive/2011/11/19/2255298.html

本文介绍了一个使用VBA宏在Excel中查找并突出显示C列和D列中相同值的技巧。通过编程实现，能够快速定位和强调数据中的重复项。

Sub Macro1()

'C列
Dim strC As String
'D列
Dim strD As String

'找出的行数
Dim intCount As Integer
intCount = 0

'外层循环
For i = 2 To 120
    strC = "C" + Trim(Str(i))
    For j = 2 To 800
        strD = "D" + Trim(Str(j))
        If Trim(Range(strC)) = Trim(Range(strD)) Then
            intCount = intCount + 1
             Range(strD).Select
                  With Selection.Font
                    .Name = "宋体"
                    .Size = 20
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleNone
                    .Color = red
                    .TintAndShade = 0
                    .ThemeFont = xlThemeFontNone
                End With
              Selection.Font.Italic = True
                Exit For
        End If

    Next j
Next i
MsgBox intCount
End Sub