烂泥:解决excel中文件1指定的列复制到文件2中指定的列

本文由秀依林枫提供友情赞助,首发于烂泥行天下

这个问题已经困扰我好几天了,具体是什么问题呢。就是我有两个excel表格文件名为1和2,我现在想把文件2中指定列的值提取到文件1中相对应的列中。

如果只是这两个文件,自己手工复制粘贴一下,也就吧了。可现在的问题是,有100多个文件呢。要是都手工来弄的话,那人都要崩溃了。

既然想偷懒,那就先去百度、google上找找了。呵呵,也被咱找到了类似的代码。是需要VBA的呢,宏,你懂得。代码修改如下:

Sub hs()

Dim sh As Worksheet, sht As Worksheet

Set sh = ActiveSheet

Set sht = Workbooks.Open(ThisWorkbook.Path & "\2.xls").Worksheets(sh.Name)

sht.Range("A1:A" & sht.Cells(sht.Rows.Count, 1).End(xlUp).Row).Copy sh.Range("A1") sht.Parent.Close (False)

End Sub

这段代码的意思是,在文件1中执行宏,把文件2中的第A列从A1行开始,复制到文件1中的A列中,并且从A1行开始。

clip_image001

clip_image002

代码弄好了,现在就要看看执行的结果了,但是要注意文件1和文件2中工作表名称要保持一致。如下:

clip_image003clip_image004

结果如下:

clip_image005

PS:excel果真是博大精深呢,咱要学习的也很多呢……

未经允许不得转载:烂泥行天下 » 烂泥:解决excel中文件1指定的列复制到文件2中指定的列

赞 (0) 打赏

如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!

支付宝扫一扫打赏

微信扫一扫打赏

广州桑sang拿