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

zhaogang1960 · 发表于 2013-1-31 16:54

请看附件

Book1.rar (24.86 KB, 下载次数: 287)

ddhhyy16 · 发表于 2013-2-1 12:30

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

为什么复制到我这里，就不对了呢？

zhaogang1960 · 发表于 2013-2-1 12:44

ddhhyy16 发表于 2013-2-1 12:30
为什么复制到我这里，就不对了呢？

请说明哪里不对，并上传正确结果

ddhhyy16 · 发表于 2013-2-1 17:08

zhaogang1960 发表于 2013-2-1 12:44
请说明哪里不对，并上传正确结果

大东工作表中，2月份的一部分数据，这个图片是正确结果，上面那个，是我复制代码后的效果，2月份的数都填乱了

zhaogang1960 · 发表于 2013-2-1 18:32

明白了，一级科目编码(4位)和二级科目编码在一列中，必须分开：

Sub Macro1()
Dim d As Object, ds As Object, sh As Worksheet, a, arr, brr, i&, j&, l&, s$, t, temp$
Set d = CreateObject("scripting.dictionary")
arr = Sheets("原始数据").Range("A1").CurrentRegion
For i = 2 To UBound(arr)
If Len(arr(i, 2)) Then
If Not d.Exists(arr(i, 2)) Then Set d(arr(i, 2)) = CreateObject("scripting.dictionary")
If Len(arr(i, 3)) = 4 Then
d(arr(i, 2))(arr(i, 4)) = d(arr(i, 2))(arr(i, 4)) & "," & i
temp = arr(i, 4)
Else
d(arr(i, 2))(temp & arr(i, 4)) = d(arr(i, 2))(temp & arr(i, 4)) & "," & i
End If
End If
Next
k = d.Keys
On Error Resume Next
For l = 0 To d.Count - 1
Set sh = Sheets(k(l))
If Not sh Is Nothing Then
Set ds = d(k(l))
With sh.Range("A3").CurrentRegion
.Offset(1, 3).ClearContents
brr = .Value
For i = 2 To UBound(brr)
If Len(brr(i, 1)) Then
s = brr(i, 1)
temp = s
Else
s = temp & brr(i, 3)
End If
t = ds(s)
If t <> "" Then
a = Split(t, ",")
For j = 1 To UBound(a)
brr(i, arr(a(j), 1) + 3) = arr(a(j), 7)
Next
End If
Next
.Value = brr
End With
End If
Next
End Sub

复制代码

zhaogang1960 · 发表于 2013-2-1 18:34

请看附件

Book1.rar (23.84 KB, 下载次数: 114)

nhygm · 发表于 2013-3-4 02:47

我在工作表TXDY 中a3和b3中分别输入2个数值，用来导出工作表退休名册中的记录，请问下面这个条件应该怎么写才对啊！！
SQL = "select * from [退休名册$] where f1> Range("A3") and f1<Range("B3")"

zhaogang1960 · 发表于 2013-3-4 03:20

nhygm 发表于 2013-3-4 02:47
我在工作表TXDY 中a3和b3中分别输入2个数值，用来导出工作表退休名册中的记录，请问下面这个条件应该 ...

复制代码

nhygm · 发表于 2013-3-4 03:35

谢谢版主好使了呵呵
对我问一下变量前不是说还要加单引号吗 ???

zhaogang1960 · 发表于 2013-3-4 03:47

文本要加单引号，日期要加#，数字什么也不用加

		自动登录	找回密码
密码			免费注册

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