[已解决]如何用宏计算不同工作薄的工作表内的数据的和

hjq0188 · 发表于 2012-1-7 11:41

数据.zip (7.17 KB, 下载次数: 58)

sunjing-zxl · 发表于 2012-1-9 22:03

本帖最后由 sunjing-zxl 于 2012-1-9 22:04 编辑

Sub huizong()

Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
Application.ScreenUpdating = False       '冻结屏幕，以防屏幕抖动
myPath = ThisWorkbook.Path & "\分表\"       '把文件路径定义给变量
myFile = Dir(myPath & "*.xls")          '依次找寻指定路径中的*.xls文件
Do While myFile <> ""                   '当指定路径中有文件时进行循环
      If myFile <> ThisWorkbook.Name Then
         Set AK = Workbooks.Open(myPath & myFile)       '打开符合要求的文件
         For i = 1 To AK.Sheets.Count
            aRow = AK.Sheets(i).Range("a65536").End(xlUp).Row
            tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1
            'AK.Sheets(i).Select
            AK.Sheets(i).Range("a2:q" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
         Next
         Workbooks(myFile).Close False             '关闭源工作簿,并不作修改
      End If
      myFile = Dir                                  '找寻下一个*.xls文件
Loop
Application.ScreenUpdating = True                '冻结屏幕,此类语句一般成对使用
MsgBox "汇总完成，请查看！再次执行汇总会重复统计", 64, "提示"

End Sub

汇总.rar (24.91 KB, 下载次数: 100)

sunjing-zxl · 发表于 2012-1-9 22:05

说明一下，上面的程序只是进行了数据汇总，没有进行数据累加。
因为你没有说明你相同数据的标准。什么相同才累加，就没法做

hjq0188 · 发表于 2012-1-10 11:33

sunjing-zxl 发表于 2012-1-9 22:05
说明一下，上面的程序只是进行了数据汇总，没有进行数据累加。
因为你没有说明你相同数据的标准。什么相同 ...

商品代码相同就累加。。试试师傅

sunjing-zxl · 发表于 2012-1-10 13:22

hjq0188 发表于 2012-1-10 11:33
商品代码相同就累加。。试试师傅

汇总-sunjing.rar (24.22 KB, 下载次数: 87)

hjq0188 · 发表于 2012-1-11 08:50

sunjing-zxl 发表于 2012-1-10 13:22
累加完成

如果还要排序呢。。就是把数量按降序来排。。老师可以把能修改的地方标注一下嘛？（修改什么的）

sunjing-zxl · 发表于 2012-1-11 09:35

排序好办啊，直接录制一个宏就完了

hjq0188 · 发表于 2012-1-11 10:28

sunjing-zxl 发表于 2012-1-11 09:35
排序好办啊，直接录制一个宏就完了

我是新手啊。。。只会简单的一些涵数。别的不会啊

hjq0188 · 发表于 2012-1-11 10:29

sunjing-zxl 发表于 2012-1-11 09:35
排序好办啊，直接录制一个宏就完了

还有，我把那个宏命令用EXCEL的编辑打开复制进去不行的啊

sunjing-zxl · 发表于 2012-1-11 11:46

分表放到分表的文件夹里面，然后打开汇总表，直接点击汇总就能够汇总。
然后点击累加就完成累加了

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

[已解决]如何用宏计算不同工作薄的工作表内的数据的和

相关帖子