如何把不同工作表内同一位置的数据填入一张总表中

wayne111

各位大神求助，如何把不同工作表同一位置的数据填入到同一张表内，附件中有个示例，第一张是一个月的汇总表，后面是每日的数据，需要将每日数据填入对应的汇总表中，应该如何实现？

coolall

按alt+F11 在新建模块中写入一下代码 运行就ok了
Sub run()
  For i = 1 To Sheets.Count - 1
     For j = 1 To 3
        Sheets(1).Cells((3 + (i - 1) * 2), j + 1) = Sheets(i + 1).Cells(3, j)
        Sheets(1).Cells((4 + (i - 1) * 2), j + 1) = Sheets(i + 1).Cells(4, j)
  Next j
  Next i
   
End Sub

wayne111

coolall 发表于 2016-2-17 10:12
按alt+F11 在新建模块中写入一下代码 运行就ok了
Sub run()
  For i = 1 To Sheets.Count - 1

谢谢啊！ 这个方法太好了！