解决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果真是博大精深呢,咱要学习的也很多呢……