EXCEL 如何查询一个数据是不是在某一列中

Posted 2023-05-04

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了EXCEL 如何查询一个数据是不是在某一列中相关的知识，希望对你有一定的参考价值。

参考技术A

1、打开电脑，打开新建一个excel表格输入两列数据用于对比，C列输入对比结果；

2、这是用b列的每一个数据对比a列的所以数据，然而这里用到函数COUNTIF()；

3、这个函数用来做这件事情比较上手，这是对一个区域符合条件的进行计数；

4、用这个例子说明用法，在c1输入=COUNTIF(a:a,b1) 就是把b1跟整个a列数据对比，返回的数据就是b1在a列中出现的次数为0就是0次；

5、比看结果为c1=0，注意excel表框内，可知b1在a列出现了一次；

6、下拉就可以把B列数据全部与a列数据进行对比了，可以看出结果正确。

Excel表格中依据某一列的值，将这列中一样的数据放在一个文件中。

一需求：按照标题C的内容，一样的数据整理到一个文件中。

技术图片

二.操作：

1.atl+F11弹出vb窗口

技术图片

2.点击插入===》模块，复制以下代码，注意这是一个表头为三行的函数（保存）

Sub 保留表头拆分数据为若干新工作簿()
    Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%

    ‘获取分割列的索引
    c = Application.InputBox("刘刚：请输入拆分列号", "刘刚：输入框", 1, , , , , 1)

    ‘如果分割列的索引是0退出程序
    If c = 0 Then Exit Sub

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ‘取a1附近所有的数据
    arr = [a1].CurrentRegion
    ‘取有多少列可以将arr看做是数组，数组的第二个维度就是列的个数
    lc = UBound(arr, 2)

    ‘取标题（从a1开始取去几行几列）（如果是一行标题，就把下行的3改成1，几行标题就写几）
    Set rng = [a1].Resize(3, lc)
    Set d = CreateObject("scripting.dictionary")

    ‘从标题行之下开始循环遍历不同的值（i = 标题行+1    如三行标题就是 4）
    For i = 4 To UBound(arr)
        If Not d.Exists(arr(i, c)) Then
            Set d(arr(i, c)) = Cells(i, 1).Resize(1, lc)
        Else
            Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))
        End If
    Next

    k = d.Keys
    t = d.Items

    For i = 1 To d.Count
        With Workbooks.Add(xlWBATWorksheet)
            ‘从哪个单元格开始复制内容
            rng.Copy .Sheets(1).[a1]

            ‘真正的内容从标题下开始复制（4   表示标题行＋1，几行标题行就改成几+1）
            t(i - 1).Copy .Sheets(1).[a4]
            .SaveAs Filename:=ThisWorkbook.Path & "\\" & k(i - 1) & "计算机学院2019年‘劳动节‘假期学生去向登记表" & ".xls"
            .Close
        End With
    Next

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    MsgBox "成功执行"
End Sub