Question

excel Vba上下单元共同字符比较（vba大师请进）

c5：人………………至……………z5:中（对象行）
c6:人民-共和-国………z6:中-华-工行（目标行）
：
：
：c17（最后的目标行）
1.同列以对象行内容比较所有目标行内容,（注意是同列比较）
2.例：c5内容比较c6内容，c6内容中的“人”与c5相同，哪么c6的“人”字变为红色

z5内容比较z6内容，z6内容中的“中”与z5相同，哪么z6的“中”字变为红色
c5比c6,c5比c7,c5比c8,c5比c9……c5比c17（结束）

Answer 1

For i = 3 To 26
For k = 5 To 17 Step 2
dxrow = Cells(k, i)
mbrow = Cells(k + 1, i)
If dxrow <> "" And mbrow <> "" Then
For j = 1 To Len(dxrow)
wz = InStrRev(mbrow, Mid(dxrow, j, 1))
Cells(k + 1, i).Characters(Start:=wz, Length:=1).Font.ColorIndex = 3
Next
End If
Next
Next
楼上是整个单元格的颜色变了，我的只是相同的字才会变颜色
比如：
C5：人民
C6：人民共和国
结果：C6中的“人民”两字变为红色，“共和国”颜色不变
D5：天 地

D6：顶天立地
结果：D6中的“天”和“地”变为红色，其余不变

追问

c5:c6能比较/c5:c7不能比较(这里应当能比较才对)
c5:c8能比较/c5:c9不能比较(这里应当能比较才对)
c5:c10能比较/c5:c11不能比较(这里应当能比较才对)
c5:c12能比较/c5:c13不能比较(这里应当能比较才对)
c5:c14能比较/c5:c15不能比较(这里应当能比较才对)
c5:c16能比较/c5:c17不能比较(这里应当能比较才对)
还有比较过程中不相同的字符也变色了

追答

Sub aa()
For i = 3 To 26
   dxrow = Cells(5, i)
   For k = 6 To 17
       mbrow = Cells(k, i)
       If dxrow <> "" And mbrow <> "" Then
           For j = 1 To Len(dxrow)
               wz = InStrRev(mbrow, Mid(dxrow, j, 1))
               Cells(k, i).Characters(Start:=wz, Length:=1).Font.ColorIndex = 6
           Next
       End If
   Next
Next
End Sub

Answer 2

用条件格式即可完成