返回首页
当前位置: 主页 > Excel教程 > Excel2013教程 >

如何解决excel中文件1指定的列复制到文件2中指定的列

时间:2016-12-10 23:44来源:Office教程学习网 www.office68.com编辑:麦田守望者

这个问题已经困扰我好几天了,具体是什么问题呢。就是我有两个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果真是博大精深呢,咱要学习的也很多呢……

顶一下
(1)
100%
踩一下
(0)
0%
标签(Tag):excel excel2013 Excel函数公式 计算当月天数
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
推荐内容