您当前的位置:网站首页>读后感300字,blood-回答密码,神回复大全,有趣的对话

读后感300字,blood-回答密码,神回复大全,有趣的对话

2019-06-04 07:59:09 投稿作者:admin 围观人数:138 评论人数:0次

咱们今天和咱们共享的内容是如何用VBA代码查询两列数据差异。

打个响指,举个栗子。

如上图所示,查询A列和C列的数据,提取出相同值、A列存在C列不存在的值、A列不存在C列存在的值……

查询成果如下图所示。

当然,这事儿并不是必定得用VBA,函数和Power Query都可以的。但咱们是VBA大众号嘛,所以仍是讲VBA的办法……


代码如下:

Sub CheckTwoClnData()
    Dim d As Object
    Dim i As Long, n1 A读后感300字,blood-答复暗码,神回复大全,风趣的对话s Long, n2 As Long, n3 As Long, m As Long
    Dim strTemp As String
    Dim arr1 As Variant, arr2 As Variant, brr As Variant, kr As Variant
    Dim rng1 As Range, rng2 As Range, rng As Range
    Set d = CreateObject("scripting.dictionary")
    On Error Resume Next
  &nbs读后感300字,blood-答复暗码,神回复大全,风趣的对话p; Set rng1 = Application.InputBox("请挑选需求核对差异的榜首列数据", Type:=8)
    '用户选取榜首列数据
    If rng1.Co你懂得lumns.Count > 1 Then MsgBox "请挑选单列数据。": Exit Sub
    If rng1.Rows.Count = 1 Then MsgBox "不能挑选单个单元格。": Exit Sub
    Set rng1 = Intersect(rng1.Paren权御全国t.UsedRange, rng1)
    '防止用户选取整列形成运算量虚大效祁厅花率低下
&n豪门长媳17岁bsp;   If Not rng1 Is Nothing Then arr1 = rng1.Value
    '将榜首列数据装入arr1
    Set rng2 = Application.InputBox("请挑选需求核对差异的第二列数据", Type:=8)
    '用户选取第二列数据
    If rng2.Columns.Count > 1 Then MsgBox "请挑选单列数据。": Exit Sub
    If rng2.Rows.Count = 1 Then MsgBox "不能挑选单个单元格。": Exit Sub
    Set rng2 = Intersect(rn苹果降价g2.Parent.UsedRange, rng2)
    If Not rng2 Is Nothing Then arr2 = rng2.Value
    For i = 2街车 To UBound(arr1) '扣除标题行
        If Len(arr1(i, 1)) Then
            d("'" & arr1(i, 1)) = "不存在"
            '将数据一致强制转换为字符串格局
&nb刘老根大舞台sp;           '数据装入字典,先一致设置item为不存在
        End If
    Next
    If UBound(arr1vv) > UBound(arr2) Then
    '核算两列最大行数
        m = UBound(arr1)
    Else
        m = UBound(arr2)
    End If
    ReDim brr(0 To m, 1 To 3)
    '成果数组
    '榜首列放AB均存在的数兆据
    '第二列放A有B没有的数据
    '第三列放B有A没有的数据响水气候
    For i = 2 To UBound(arr2)
        If Len(arr2(i, 1)) Then
            strTemp = "'" & arr2(龚磬冬i, 1)
            If d.exists(strTemp) Then '假如A有B也有
&nbs普闻天鼓p;               n1 = n1 + 1
                brr(n1, 1) = strTemp
      郑露莹          d(strTemp) = "存在"
                '将AB均有的数据item修改为存在
      读后感300字,blood-答复暗码,神回复大全,风趣的对话      Else '假如B有A没有
                n3 = n3 + 1
  &npop字体bsp;    &n读后感300字,blood-答复暗码,神回复大全,风趣的对话bsp;        brr(n3, 3) = strTe读后感300字,blood-答复暗码,神回复大全,风趣的对话mp
       &三个小女子nbsp;&nbs梧州气候预报p;   End If
    &nb箍身箍势式sp;   End If
    Next
    kr = d.keys
    For i = 0 To UBound(kr)
        If d(kr(i)) = "不存在" Then '假如A有B没有
            n2 = n2 + 1
            brr(n2, 2) = kr(i)
        End 奥迪s8If
    Next
    Err.Clear
    Set rng = Application.InputBox("请挑选放置查询成果的单元格,例如C1", Type:=8)
    rng.Parent.Select
    rng.Select
    If Err.Number = 0 Then
        brr(0, 1) = "两列均存在的数据有" & n1 & "条"
        brr(0, 2) = "A有B没有的数据有" & n2 & "条"
        brr(0, 3) = "B有A没有的数据有" & n3 & "条"
        With rng(1).Resize(UBound(brr) + 1, 3)
            .ClearContents '清扫房间
            .NumberFormat读后感300字,blood-答复暗码,神回复大全,风趣的对话Local = "@"
            '设置文本格局,防止文本数值变形
            .Value = brr
        End With
        MsgBox "核对完结。" &a读后感300字,blood-答复暗码,神回复大全,风趣的对话mp; vbLf & brr(0, 1) & vbLf & brr(0, 2) & vbLf & brr(0, 3)
    End If
 &财nbsp;  Set d = Nothing
    Set rng = Nothing
    Set rng1 = Nothing
    Set rng2 = Nothing
    Erase arr1: Erase arr2: Erase brr
End Sub

代码运转动画:

小贴士:

1,代码使用了字典目标,首先将榜首列的数据装入字典,并将item一致设置为“不存在”,然后判别第二列的数据是否在字典中存在,假如存在,则将条目对应的item修改为“存在”,最终遍历字典,查询item依然为“不存在”的数据。

2,代码答应用户选取整列数据,使用了Intersect办法防止运算量虚大功率低下的问题,但不答应用户选取多列或单个单元格。

3,代码无视空格,不区别文本值和数值。


图文作者:看见星光


点击【阅览原文】了解概况。

the end
回答密码,神回复大全,有趣的对话