[已解决]如何提取同一工作簿中N个工作表中的指定单元格内容

tiger968 · 发表于 2015-7-26 10:08

本帖最后由 tiger968 于 2015-7-27 10:09 编辑

一个工作簿中有n个结构相同的工作表，但需要提取的数据不固定在某个单元格，如何将指定的数据统计在一个工作表中呢？如：附件中的4个工作表中的指定内容统计在“汇总”工作表中。
谢谢老师们指导一下。
类似的问题曾经得到过 fjmxwrs老师的帮助，非常感谢！附件中有效果截图，但因表格结构的改变，不得不重新请教。

最佳答案

月排行榜 / 总排行榜

七彩屋

2015-7-26 13:27

本帖最后由七彩屋于 2015-7-26 13:33 编辑

Sub qcw()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "汇总" And sh.Range("A1") <> "" Then
With sh
x = .Range("a65536").End(xlUp).Row
Range("A" & 2 + m) = sh.Name
.Range("c" & x - 5).Copy Range("b" & 2 + m)
.Range("c" & x - 4).Copy Range("c" & 2 + m)
Range("d" & 2 + m) = .Range("c" & x - 2) + .Range("c" & x - 3)
.Range("g" & x - 3).Copy
Range("e" & 2 + m).PasteSpecial Paste:=xlPasteValues
m = m + 1
End With
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

A0726.rar (55.96 KB, 下载次数: 12)

爱疯 · 发表于 2015-7-26 11:50

汇总表，D2，E2怎么求的？

liyh67 · 发表于 2015-7-26 13:15

A.rar (47.94 KB, 下载次数: 6)

七彩屋 · 发表于 2015-7-26 13:27

本帖最后由七彩屋于 2015-7-26 13:33 编辑

Sub qcw()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "汇总" And sh.Range("A1") <> "" Then
With sh
x = .Range("a65536").End(xlUp).Row
Range("A" & 2 + m) = sh.Name
.Range("c" & x - 5).Copy Range("b" & 2 + m)
.Range("c" & x - 4).Copy Range("c" & 2 + m)
Range("d" & 2 + m) = .Range("c" & x - 2) + .Range("c" & x - 3)
.Range("g" & x - 3).Copy
Range("e" & 2 + m).PasteSpecial Paste:=xlPasteValues
m = m + 1
End With
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

A0726.rar (55.96 KB, 下载次数: 12)

tiger968 · 发表于 2015-7-26 15:45

感谢4楼老师完美的解决了我的问题。
也感谢其他几个老师。
当工作表大于4个时，3楼老师的公式往下拖出现错误。
D2、E2数据不是求出来的，是从工作表中的现有数据复制过来的，回答2楼老师。

weixing1209 · 发表于 2024-2-21 09:59

怎么下不了呢

weixing1209 · 发表于 2024-2-21 10:00

怎么下不了呢

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