[已解决]查询相同数据的问题

晓敏 · 发表于 2014-9-7 12:22

本帖最后由晓敏于 2014-9-8 00:07 编辑

附件

查询相同一组数据.rar (195.24 KB, 下载次数: 29)

dsmch · 发表于 2014-9-7 15:26

表格无内容测试什么？

晓敏 · 发表于 2014-9-7 16:12

dsmch 发表于 2014-9-7 15:26
表格无内容测试什么？

谢谢老师关注。考虑到上传文件过大，过不了。才把有些表格留空的。附件中示范的那些表格，是有数据的。

dsmch · 发表于 2014-9-7 18:09

Sub Macro1()
Dim fs, wb As Object, arr, brr(1 To 10000, 1 To 4)
Application.ScreenUpdating = False
Set fs = CreateObject("scripting.filesystemobject")
For Each m In fs.GetFolder(ThisWorkbook.Path & "").SubFolders
For Each f In fs.GetFolder(m & "").Files
Set wb = GetObject(f)
arr = wb.Sheets(1).Range("a1").CurrentRegion
wb.Close 0
y = UBound(arr)
For j = 1 To UBound(arr, 2)
If arr(1, j) = arr(y - 1, j) And arr(2, j) = arr(y, j) Then
s = s + 1
w = Split(m, "")
brr(s, 1) = w(UBound(w))
w2 = Split(f, "")
brr(s, 2) = w2(UBound(w2))
w3 = Split(Cells(1, j).Address, "$$")(1)
brr(s, 3) = w3
brr(s, 4) = arr(1, j) & "=" & arr(2, j)
Exit For
End If
Next
Next
Next
Range("a1").Resize(s, 4) = brr
Application.ScreenUpdating = True
End Sub

复制代码

dsmch · 发表于 2014-9-7 18:12

………………

晓敏 · 发表于 2014-9-7 21:47

dsmch 发表于 2014-9-7 18:12
………………

老师您好，谢谢您帮助。试了一下大数据（07版），16384列的。12个工作薄，程序运行正常。但查出来的数据不完整。12个工作薄，本来有124个数据，却只查出来12个。初步看了一下，三千多列那里，能查到；而八千多列那里，就查不到了。不知为什么？因数据太大，一个工作薄在7M左右，不好上传，不知如何是好。麻烦老师看看，谢谢了。

晓敏 · 发表于 2014-9-7 23:14

dsmch 发表于 2014-9-7 18:12
………………

老师您好，一个工作薄中，只有一个工作表。因电脑在制作数据，要到11点50才能结束，等下试着删除看看能否正常。谢谢老师。

10210578 · 发表于 2014-9-10 19:31

学习学习

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

[已解决]查询相同数据的问题

评分

点评