vba excel两个sheet里的两列数据进行对比，提取不同的数据写到另一个sheet
我想实现上面讲到的功能，但下面这段代码在for的地方报“type mismatch”,麻烦帮我排一下错嘛，谢谢，
还有一个问题就是，如果我要拿一个sheet里的两列数据现另一sheet里的两列数据进行对比，是不是也可以像下面这样子写呢？烦请指教！谢谢！
Private Sub CommandButton1_Click()
Dim arr, brr, crr(1 To 1000), b As Boolean
b = False
Dim x%: x = 1
arr = Sheet2.Range("a1:a" & [a65536].End(xlUp).Row)
brr = Sheet3.Range("a1:a" & [b65536].End(xlUp).Row)
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(brr, 1)
If arr(i, 1) = brr(j, 1) Then b = True: Exit For
Next
If b = False Then crr(x) = arr(i, 1): x = x + 1
b = False
Next
[a1].Resize(x - 1, 1) = Application.Transpose(crr)
End Sub
Dim arr, brr, crr(1 To 1000), b As Boolean
b = False
Dim x%: x = 1
arr = Sheet2.Range("a1:a" & Sheet2.[a65536].End(xlUp).Row)
brr = Sheet3.Range("a1:a" & Sheet3.[a65536].End(xlUp).Row)
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(brr, 1)
If arr(i, 1) = brr(j, 1) Then b = True: Exit For
Next
If b = False Then crr(x) = arr(i, 1): x = x + 1
b = False
Next
[a1].Resize(x - 1, 1) = Application.Transpose(crr)
End Sub
都要指定工作表，brr也是a列吧？
追问对，都是在A列，我想把存在差异的那一行再加上表名一起都复制出来，应该怎么写呢，
追答两个表头是一样的，所以表头是不会复制过来的，要手工或单独的代码。
追问我是指表的名字哈，比如sheet2的名字是test，sheet3的名字是test1,我是想把这种名字也一起复制到上面paste数据的区域，最完美的是把存在差异的那一整行都复制出来到指定区域
vba excel两个sheet里的两列数据进行对比,提取不同的数据写到另一个she...
Private Sub CommandButton1_Click()Dim arr, brr, crr(1 To 1000), b As Booleanb = FalseDim x%: x = 1arr = Sheet2.Range("a1:a" & Sheet2.[a65536].End(xlUp).Row)brr = Sheet3.Range("a1:a" & Sheet3.[a65536].End(xlUp).Row)For i = 1 To UBound(arr, 1) Fo...
如何用VBA语言将多个EXCEL表中不同sheet表汇总到一个excel的不同sheet表...
1、打开需要汇总分析的Excel表格，选择Excel表格上方的“开发工具”选项。2、然后点击“宏”按钮进行程序编写。3、然后输入汇总程序的名称，点击编辑按钮。4、写入程序代码，这里利用的是Do loop until和IF then 语句。汇总的要求为筛选出表格中男性、本科学历、在岗人员的名单。5、在开发工具选项中选择插入...
如何利用宏(VBA)将多个excel表上的内容复印、粘贴到另一张表上
合并之前，请先创建一个空白的 Sheet 作为合并目标 Sheet ，这个 Sheet 必须是第一个 Sheet 哦。如果不合并标题行（比如第一行）则 j=1 改为 j=2 如果数据不是从第一行，或者第一列开始的，请修改 j=1 及 k=2 两行的参数。比如 j=2 k=3 表示从 第2行，第3列开始的数据。Sub Combine...
用VB怎样对两个表格中的数据进行对比?
1.通过要进行对比的两个工作表或多个工作表位于不同的文件中，首先要做的就是当多个要进行对比的Excel工作表数据复制粘贴到同一个工作表中，同时做好各个工作表的命名准备，以便能正确的区分数据的来源。2.接下来确定数据“关键字”部分，即能够唯一标识记录的关键字组合，这样就可以在进行数据对比时，...
VBA 在EXCEL中能不能 对两列名称进行对比 筛选 并将不同项列出来
可以，我介绍个笨方法，用IF 函数，先读第一列第一个数据为A1，然后读第二列数据，每个都同A1比较，相同的忽略，不同的将数值付给一个变量；然后再读第二个数据A2,重复读第二列数据，进行比较---直至两列数据全部结束，这里面用到IF..THEN..ELSE..ENDIF ,FOR...NEXT语句 ...
如何使用excel的vba将sheet2表中的数据更新到sheet1?
Private Sub Worksheet_Change(ByVal Target As Range)Dim arr, i&, j&, r(1 To 100, 1 To 1)arr = Me.UsedRange.Resize(, 3)For i = 2 To UBound(arr)If arr(i, 1) <> "" Then j = j + 1 r(j, 1) = r(j, 1) + arr(i, 3)Next i Sheets(1).Range("b2")....
vba如何对比两个工作薄中的每个sheet页中每条记录,将不同内容的记录位置...
Sub Macro1()'先要同时打开两个工作簿 '在工作簿名1中建立一个“记录”的表★★★且要放到表的最后。运行需要时间。Dim a As String, b As String a = "工作簿1.xls" '要改的 b = "工作簿2.xls" '要改的 Dim i As Integer, j As Long, k As Long, n As Long For i = ...
...中不同sheet中的列数据 按列顺序 导入到一个sheet中去?
Public Sub HBsh() Dim Sh As Worksheet, i As Long i = 1 For Each Sh In Worksheets If Sh.Name <> "总的" Then Sheets("总的").Cells(1, i).Resize(Sh.Range("A1").CurrentRegion.Rows.Count, Sh.Range("A1").CurrentRegion.Columns.Count).Value = Sh.Range(...
excel中如何对比两列数据,并且将两列中不同的数据与相同的数据分别同时...
把C、D两列的内容复制到A，B两列后面，插入-数据透视表 范围选择A，B两列内的数据，然后确定 然后分别将姓名和数量拖入行标签和数值框内，并设置数值为求和：确定后就得到透视表，然后再把透视表的内容复制出来就可以了。
如何用vba把两个工作表的数据汇总到一个工作表上
1、打开EXCEL表格、点击数据选项卡中的“现有连接”。2、点击“浏览更多”。3、找到需要汇总的表格、点击打开。4、选中相关Sheet表格、点击确定。5、弹出导入数据对话框、点击确定。6、同步骤1~5、依次添加其他Sheet表格数据即可、返回EXCEL表格、发现成功将多个Sheet工作薄汇总在一起。多个sheet提取数据汇总...
