在excel中有俩组数据,如何找出其中没有出现的数字

如题所述

其实不用很复杂的公式或者VBA编程代码的,就用EXCEL自带的函数即可。

方法1:
将2组横向的数据,复制,转置,粘帖,变成竖向的;然后对这2列分别用 VLOOKUP函数 查找另一列,返回为#N/A的即为没有出现的数字。
方法2:
通过 hlookup函数,进行“行”的查找,用法类似VLOOKUP,但是一个是对列查找,一个是对行查找。
具体的2个函数的使用方法我就不写了,自己按F1,查看EXCEL的帮助。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2013-09-04
问题中没说公式要下拉还是要右拉的,三种情况的公式我都发上来了,请自行选择:

输入下面的公式右拉就行了:
=IF(SUMPRODUCT(N(COUNTIF($A1:$U2,ROW($1:$80))=0))>=COLUMN(A1),SMALL(IF(COUNTIF($A1:$U2,ROW($1:$80))=0,ROW($1:$80)),COLUMN(A1)),"")

这是用于下拉的公式:
=IF(SUMPRODUCT(N(COUNTIF(A$1:U$2,ROW($1:$80))=0))>=ROW(A1),SMALL(IF(COUNTIF(A$1:U$2,ROW($1:$80))=0,ROW($1:$80)),ROW(A1)),"")

这是同时支持右拉和下拉的公式:
=IF(SUMPRODUCT(N(COUNTIF($A$1:$U$2,ROW($1:$80))=0))>=(COLUMN(A1)+ROW(A1)-1),SMALL(IF(COUNTIF($A$1:$U$2,ROW($1:$80))=0,ROW($1:$80)),COLUMN(A1)+ROW(A1)-1),"")追问

大神,
能不能直接帮我做一个呢?

追答

我把文件传上来吧,按你题目要求,对比两组数据,把1-80中没有出现的数字列出来的。

本回答被网友采纳
第2个回答  2013-09-04

可以用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

相似回答