Excel相同的字符改成红色字体

1、打开Excel表格，点击【开发工具】、【Visual Basic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。

2、在VBA编辑器菜单栏上面点击【插入】、【模块】。

3、在模块的代码窗口里面输入以下VBA程序代码，然后按下【F5】键运行程序。Dim h巳呀屋饔, i, j, k, m, my1Array(100), my2Array(100), arr1, arr2On Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表For h = 2 To 1000 '从第2行到1000行For i = 1 To 5 '从第1个字符到第五个字符 my1Array(i) = Mid(mysheet1.Cells(h, 1), i, 1) '截取字符后放入到数组里面 my2Array(i) = Mid(mysheet1.Cells(h, 2), i, 1)Next arr1 = my1Array arr2 = my2ArrayFor j = 1 To 5 '第一个单元格里面的字符 For k = 1 To 5 '第二个单元格里面的字符 If arr1(j) = arr2(k) Then '如果两个单元格里面的字符相同，则字体改成红色 mysheet1.Cells(h, 1).Characters(Start:=j, Length:=1).Font.Color = RGB(255, 0, 0) mysheet1.Cells(h, 2).Characters(Start:=k, Length:=1).Font.Color = RGB(255, 0, 0) End If NextNextFor m = 1 To 5 my1Array(m) = "" '清空数组里面的值 my2Array(m) = ""NextNextEnd Sub

4、回到Excel表格界面，将会看到程序的运行结果。

5、VBA程序解读：（1）“my1Array(100), my2Array(100拘七呷憎)”都是数组，主要是用来存放截取出来的字符，每次循环放置新的数据时应当把它清空，以免出错。（2）Mid挣窝酵聒函数是字符截取函数，即：Mid(截取的字符,起始位置,截取的个数)。（3）由于CountIf函数主要用于统计Excel表格上面存在相同单元格个数，在数组上面没法使用，此时只能使用“If arr1(j) = arr2(k) Then”进行字符判断。（4）“Characters(Start:=j, Length:=1)”是指单元格里面字符的起始位置、字符的长度，后面的对象属性是字体。