[已解决]两列数据如何用VBA自动找出错误处？

zjdh

这个可以消除单词空格不规范情况，缺少单词仍无法解决，但已经满足楼主的题目要求了：
Sub TEST()
    Dim Arr2()
    Arr1 = Split(Range("a3"), " ")
    Arr = Split(Range("b3"), " ")
    For I = 0 To UBound(Arr)
        If Arr(I) <> "" Then
            K = K + 1
            ReDim Preserve Arr2(0 To K)
            Arr2(K) = Arr(I)
        End If
    Next
    For I = 0 To UBound(Arr1)
        If Arr1(I) <> Arr2(I + 1) Then
            S = InStr(Range("B3").Value, Arr2(I + 1))
            l = Len(Arr2(I + 1))
            Range("B3").Characters(Start:=S, Length:=l).Font.ColorIndex = 3
        End If
    Next
End Sub

saoki98

zjdh 发表于 2012-6-13 08:51
这个可以消除单词空格不规范情况，缺少单词仍无法解决，但已经满足楼主的题目要求了：
Sub TEST()
    Di ...

谢谢楼上帮忙，

但如果单词漏掉了，后面全部变色，这样行不行？

就是字符一对一的对比，不对的就反应出红色之类的，可以实现吗？

zjdh

你没试试！我11楼的宏就是：如果单词漏掉了，后面全部变色。

saoki98

zjdh 发表于 2012-6-14 09:03
你没试试！我11楼的宏就是：如果单词漏掉了，后面全部变色。

好的！昨天加班回来都12点了，所以没试，嘿嘿，不要生气啊！