[已解决]求助，我想把一个表里的数据能添加到另一个表里俩表表头相同

xiangjiuxing

有两个数据表，表一是汇总每天数据在一起的表格，表二是当天数据，我想把表二数据自动录入到表一中，每天都能依次自动向下录入。哪位高手帮帮忙

最佳答案

月排行榜 / 总排行榜

grf1973

2015-3-18 13:25

1. Sub 导入表二()
   
2.     Dim wb As Workbook
   
3.     r = [a65536].End(3).Row + 1
   
4.     fn = ThisWorkbook.Path & "\数据表2.xlsx"
   
5.     Set wb = Workbooks.Open(fn)
   
6.     wb.Worksheets(1).[a1].CurrentRegion.Copy Cells(r, 1)
   
7.     Rows(r).Delete
   
8.     wb.Close False
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

xiangjiuxing

管理员，帮帮忙吧！

grf1973

1. Sub 导入表二()
   
2.     Dim wb As Workbook
   
3.     r = [a65536].End(3).Row + 1
   
4.     fn = ThisWorkbook.Path & "\数据表2.xlsx"
   
5.     Set wb = Workbooks.Open(fn)
   
6.     wb.Worksheets(1).[a1].CurrentRegion.Copy Cells(r, 1)
   
7.     Rows(r).Delete
   
8.     wb.Close False
   
9. End Sub
   

复制代码

xiangjiuxing

grf1973 发表于 2015-3-18 13:25

非常感谢帮助