如何遍历工作表提取数据（求助ORZ）

syakukou · 发表于 2010-12-12 10:32

上个求助帖子得到了KCFONG 老师的帮助，但是在应用时有了新的问题，再来向各位高手老师求助

希望的效果是，
在六个工作表中，查找到的“累计”为负时，则相应的汇总表上填充入：累计负数，工作表名，对应日期，表头的物料编号。

但现在出现的问题是，
1，六个工作表中的其中一个工作表内“累计”列有负数，但在汇总的“预期”工作表内也提取了其他工作表相应数据，不明白啊
2，在代码中，遍历工作表的代码是否正确？

[ 本帖最后由 syakukou 于 2010-12-12 11:11 编辑 ]

jiminyanyan · 发表于 2010-12-12 10:45

没看明白。

lu_zhao_long · 发表于 2010-12-12 10:45

难道楼主所说的这个有负数的“累计”所在的工作表不是那六个工作表之一吗？

syakukou · 发表于 2010-12-12 10:49

是的，我要查询六个工作表中出现的每个“累计”列，若是哪个工作表中的累计出现负数，则将此工作表名，对应的日期，累计负数，还有累计对应的物料编号，都提取到“预期”工作表内
附件其实已经实现这个效果了，但想请高手老师修正出现的问题
1，没有负数的工作表也列在“预期”工作表（汇总表）了，这是不希望的
2，遍历六个工作表，然后提取相应数据的代码是否正确？

syakukou · 发表于 2010-12-12 11:00

请各位老师帮忙指点~~~

jiminyanyan · 发表于 2010-12-12 11:16

For Each bal In Sheets("液用PCI").Range(Sheets("液用PCI").Cells(5, c), Sheets("液用PCI").Cells(erow, c))
If bal < 0 Then
-----------------------------
每次遍历的都是液用PCI这个表，应是不对的。
楼主去检查一下程序。

syakukou · 发表于 2010-12-12 11:20

就是不知道怎么遍历其他的工作表，而不是只遍历这一个表，如何更正请老师指点。。。

syakukou · 发表于 2010-12-12 11:33

能否告知正确的代码，非常感谢~

jiminyanyan · 发表于 2010-12-12 11:36

请测试。

Sub test()
terow = Sheets("预期").[b65536].End(xlUp).Row
Sheets("预期").Range("b3:d" & terow).ClearContents
Sheets("预期").Range("f3:f" & terow).ClearContents
r = 3
For Each s In ThisWorkbook.Sheets
If s.Name <> "预期" And s.Name <> "基本资料" Then
With s
ecol = .[iv5].End(xlToLeft).Column
erow = .[b65536].End(xlUp).Row
For c = 6 To ecol Step 3
For Each bal In .Range(.Cells(5, c), .Cells(erow, c))
If bal < 0 Then
Sheets("预期").Range("b" & r) = .Range("b" & bal.Row)
tt = .Cells(2, bal.Column - 2)
Sheets("预期").Range("d" & r) = tt
Sheets("预期").Range("f" & r) = bal
Sheets("预期").Range("c" & r) = s.Name
r = r + 1
End If
Next bal
Next c
End With
End If
Next s
End Sub

复制代码

syakukou · 发表于 2010-12-12 11:52

测试OK，非常非常的感谢。。。

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

[求助] 如何遍历工作表提取数据（求助ORZ）

回复 6楼 jiminyanyan 的帖子

回复 9楼 jiminyanyan 的帖子