请问如何将N个相同格式的XLS文件里的Sheet1!F6和G14做成一张月结表?

tony_zhong

请问如何将N个相同格式的XLS文件里的Sheet1!F6,F4和G14单元格里的数据做成一张月结表?

[此贴子已经被作者于2007-5-16 21:27:10编辑过]

fjzjyan

直接从各文件中取数程序代码较为繁琐，但可将当月所有表放在一个文件中（如以下月结表格式）用如下几行代码即可完成

Sub yjb()
   Dim ws1 As Worksheet
   Dim ws As Worksheet
   Dim rg As Range
   Set ws1 = Sheets("月结表")
   Set rg = ws1.[a2]
    For Each ws In ThisWorkbook.Worksheets
       If ws.Name <> "月结表" Then
      rg = ws.[F4].Value
      rg.Offset(0, 1) = Trim(ws.[F6].Value)
      rg.Offset(0, 2) = ws.[G14].Value
      Set rg = rg.Offset(1, 0)
      End If
    Next ws
End Sub

[此贴子已经被作者于2007-5-17 12:50:45编辑过]

tony_zhong

谢谢!

但我现在现手头有上千个这样同格式的文件.昨天我找了整个晚上都没到合适的程序,也只好这样了.

其中有比较接近的,方漠做的多文件合并,还有"通用表格汇总"(http://www.office-cn.net/Soft/Class58/Index.html)

都不合用.

累就累点吧,小弟急着要交表.

6100535

看看,学一学