烂泥：解决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行开始。

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

结果如下：

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

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