关于Excel不同工作表数据汇总显示

关于Excel不同工作表数据汇总显示

[ 标签：excel, 工作表数据, xsl ] 7 2009-06-11 00:44

Excel数据整理的时候,由于统计需要把数据按工作表分类.现在又需要将所有

工作表的内容,汇总到一个工作表中进行综合留底.现有一个工作薄中最少都有10+个工作表,有什么方式可以快速、自动汇总这些数据显示吗?(所有工作表中的结构一样,数据不一样。想要的结果只是将数据全部集中显示,而不是汇总求和)..望有达人解决,不胜感激

问题补充：如图中建立一个新工作表，在该工作表中工作表6.1后自动接工作表6.2...

问题补充：在飘的耐心指导下,问题已经得到解决..为了方便以后有相同问题的朋友参阅这段代码,我将问题再补充一下：当时我在A文件夹下有1-N个工作薄,需要将所有工作薄中的所有工作表内所有内容集合到一个新的工作表中(纯数据集中处理,不涉及统计、排序、计算等等),具体宏代码视情况而定..一段小小的宏,节约了大约一周的时间,惭愧惭愧..

满意答案

是否将各表的内容复制到要汇总的表中？

若是这样的话，只能用宏代码了

若是这样加我，可以给代码

继续追问：嗯.就是将各表的内容复制到要汇总的表中..看来还是有方法可以实现的,请教一下了

补充回答：一般的方法就是两种：公式与宏

在这边是无法用公式的，所以只能用宏，且宏代码不会长

补充回答：代码如下，但还有部份要设置，在此无法细说：

Sub 汇总()

Dim LJ, bwj, bb, fs, f, f1, fc, I, J, K, L, HS, LS, wj, bm, A, B

Set bwj = ActiveWorkbook

Set bb = bwj.ActiveSheet

LJ = bwj.Path

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder(LJ)

Set fc = f.Files

A = 2

For Each f1 In fc

If Right(f1, 3) = "xls" Or Right(f1, 3) = "XLS" Then

If https://www.360docs.net/doc/9c5048941.html, <> https://www.360docs.net/doc/9c5048941.html, Then

Workbooks.Open LJ & "\" & https://www.360docs.net/doc/9c5048941.html,

Set wj = ActiveWorkbook

For Each I In Worksheets

I.Select

Set bm = I

ActiveCell.SpecialCells(xlLastCell).Select HS = ActiveCell.Row

'LS = ActiveCell.Column

LS = 5: C = 0

For J = 1 To HS

A = A + 1

bb.Cells(A, 1) = https://www.360docs.net/doc/9c5048941.html,

bb.Cells(A, 2) = https://www.360docs.net/doc/9c5048941.html,

For K = 1 To LS

bb.Cells(A, K + 2) = bm.Cells(J, K)

A1: Next K

Next J

Next I

wj.Close False

End If

End If

Next

End Sub