怎么用SQL的方法将两个工作表的不同记录导到新工作表中？

fzkoko

学习再学习

nhygm

zhaogang1960 发表于 2013-1-29 12:52
请参考：

Sub 字典法()
    Dim d(1 To 3) As Object, t, arr(1 To 2), brr(), i&, j&, m&, sh As Worksheet
    For i = 1 To 3
        Set d(i) = CreateObject("scripting.dictionary")
    Next
    For l = 1 To 2
        arr(l) = Sheets("Sheet" & l).[a1].CurrentRegion
        For i = 1 To UBound(arr(l))
            d(l)(arr(l)(i, 1)) = i
        Next
    Next
    ReDim brr(0 To UBound(arr(1)), 1 To 4)
    For i = 1 To UBound(arr(1))
        If d(1).Exists(arr(1)(i, 1)) And d(2).Exists(arr(1)(i, 1)) Then
            For j = 1 To 4
                brr(m, j) = arr(1)(i, j) '相同记录
            Next
            d(1).Remove (arr(1)(i, 1)) 'Sheet1独有
            m = m + 1
        End If
    Next
    On Error Resume Next
    Set sh = Sheets("相同记录")
    If Not sh Is Nothing Then sh.Cells.Clear Else Sheets.Add.Name = "相同记录"
    Sheets("相同记录").[a1].Resize(m, 4) = brr
    t = d(1).items
    For i = 0 To d(1).Count - 1
        For j = 1 To 4
            brr(i, j) = arr(1)(t(i), j)
        Next
    Next
    Set sh = Sheets("Sheet1独有")
    If Not sh Is Nothing Then sh.Cells.Clear Else Sheets.Add.Name = "Sheet1独有"
    Sheets("Sheet1独有").[a1].Resize(i, 4) = brr
End Sub
赵大师：这个程序用起来，Sheet1独有表中各个列总的数字都变成科学计数法了，怎么才能把各个列都变成文本格式来显示数字呢？

zhaogang1960

nhygm 发表于 2013-10-11 09:18
Sub 字典法()
    Dim d(1 To 3) As Object, t, arr(1 To 2), brr(), i&, j&, m&, sh As Worksheet
    ...

哪列出现这样的问题，可事先设置为文本格式

nhygm

zhaogang1960 发表于 2013-10-11 11:43
哪列出现这样的问题，可事先设置为文本格式

赵大师：
我设置成文本业不好使啊！！
麻烦您帮我看看吧，附件中 SHEET1和sheet2 比较，sheet1表中的 不同记录导到 签约人员的表中，另外帮我看看用SQL的方法怎么不好使呢？ 社保工资发放20131009.rar (1.4 MB, 下载次数: 21)

2013-10-12 08:13 上传

点击文件名下载附件

nhygm

谢谢，在要写入 签约人员 表前 加 Sheets("签约人员").Columns("A:F").NumberFormatLocal = "@" 就好使了

2007小金猪

仔细研读，就这个问题学习

2007小金猪

怎么没收藏呢。学习

451856787

zhaogang1960 发表于 2013-1-31 16:52
你这个题目好难啊，费了一个多小时：

赵老师，想请教一下d(arr(i, 2))(arr(i, 4)) = d(arr(i, 2))(arr(i, 4)) & "," & i这句代码，d(arr(i, 2))(arr(i, 4))这个表示一个什么意思呢，是两个东东相乘么？似乎不是哇？

zhaogang1960

451856787 发表于 2014-12-24 00:27
赵老师，想请教一下d(arr(i, 2))(arr(i, 4)) = d(arr(i, 2))(arr(i, 4)) & "," & i这句代码，d(arr(i, 2) ...

不是相乘(相乘用*)，你只要把d(arr(i, 2))当作一个字典对象就可以了

Set d = CreateObject("scripting.dictionary")
d是一个字典对象变量，那么
Set d(arr(i, 2)) = CreateObject("scripting.dictionary")
d(arr(i, 2))也是一个字典对象变量

451856787

zhaogang1960 发表于 2014-12-24 00:46
不是相乘(相乘用*)，你只要把d(arr(i, 2))当作一个字典对象就可以了

Set d = CreateObject("scripting ...

赵老师，我把d(arr(i, 2))当成一个ITEM是可以的，但是这个item和后面的(arr(i, 4))放在一起，是什么意思呢？