it经验啦

  1. 首页 > it经验 > >

用ExcelVBA代码查找出两列中不相同的数据，并填充到指定单元格区域

技巧

用 Excel VBA 代码查找出两列中不相同的数据，并填充到指定单元格区域
Sub FindDifference ()
Dim rng1 As Range ,rng2 As Range Dim cell1 As Range ,cell2 As Range Dim arr1 As Variant ,arr2 As Variant Dim i As Long , j As Long
Dim diff As Range
Set rng1= Range ("A1:A10") Set rng2= Range ("B1:B10")arr1=rng1
arr2=rng2
For i =1 To UBound (arr1) For j =1 To UBound (arr2) If arr1( i ,1)=arr2( j ,1) Then Exit For
End If
Next j
Ifj > UBound (arr2) Then If diff Is Nothing Then Set diff =rng1.Cells( i ,1) Else
Set diff = Union ( diff ,rng1.Cells( i ,
End If
End If
Next i
If Not diff Is Nothing Then diff . Copy Range ("℃1") End If
End Sub
【用ExcelVBA代码查找出两列中不相同的数据，并填充到指定单元格区域】

用ExcelVBA代码查找出两列中不相同的数据，并填充到指定单元格区域

相关经验推荐

上一篇：Excel函数编写的短文，你来看看吧，每一个英文单词都是Excel函数或者术语

下一篇：装修90平方米的房子，做多少平米柜子合适 90平的房子一般做多少平方柜子