关于excel的使用技巧

来源：百度知道 编辑：UC知道 时间：2024/05/17 05:10:46
一个excel文件当中包含300个表格，每个表格都有不同的表格名称，但每个表格的格式都是一样的，现在需要把每个表格中第18行的总计一行中的6列数据都合并到一个表格中，请问该怎么弄？
假设表格名称分别为甲、乙、A、B、张三、李四、王五等等，名称没有任何规律。
不是累加，是把前面300各表中第18行的数据都放到一个表里面组成一个新的表格

是300张表中这六列数据上的值累加,然后放到汇总表的6个格子中吗?
假设你要在第一张表中统计第二到第三百张表的6列之后
=SUM(Sheet2:Sheet301!A18),然后往右拖.
注:不管你表的名字如何.在物理顺序上.SHEET2在第一张(紧接着汇总表后面),SHEET301,在最后一张.
************
将下列代码,复制入宏代码框,运行.
且记,汇总表放在第一张,300张分表在后面(即从物理位置的第二张开始).
Sub aaaa()
Dim a As Integer
Dim b As Integer
a = Worksheets.Count - 1
b = 2
For x = 1 To a
Sheets(b).Select
Range("18:18").Select
Selection.Copy
Sheets(1).Select
Range("a" & b).Select
ActiveSheet.Paste
b = b + 1
Next
End Sub