office办公软件入门基础教程这个问题已经困扰我好几天了，具体是什么问题呢。就是我有两个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果真是博大精深呢，咱要学习的也很多呢……
