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

weixin_33897722

于 2011-11-19 15:51:00 发布

阅读量220

点赞数

本文介绍了一段使用VBA宏代码实现Excel中特定条件下单元格字体样式设置的方法。通过内外层循环比较C列和D列的数据，当两列单元格内容相同时，将D列对应单元格字体设置为红色、斜体且字号为20。该过程最终统计并显示了匹配项的数量。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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