大神,
能不能直接帮我做一个呢?
我把文件传上来吧,按你题目要求,对比两组数据,把1-80中没有出现的数字列出来的。
可以用VBA来完成:
Sub text()
Dim aRan As Range, bRan As Range
Dim tStr As String
Dim i As Integer, n As Integer
Set aRan = Range("A1")
Set bRan = Range("B1")
For i = 1 To Len(aRan)
If Mid(aRan, i, 1) <> Mid(bRan, i, 1) Then
aRan.Characters(Start:=i, Length:=1).Font.ColorIndex = 3
bRan.Characters(Start:=i, Length:=1).Font.ColorIndex = 3
tStr = tStr & "第" & i & "位中的“" & Mid(aRan, i, 1) & "”与“" & Mid(bRan, i, 1) & "”不同" & vbCrLf
n = n + 1
End If
Next
If n > 0 Then
MsgBox tStr & "共找到" & n & "处不相同的地方!", , " http://www.excelba.com"
Else
MsgBox "两个单元格的内容相同!", , " http://www.excelba.com"
End If
End Sub