excel如何制作一个按钮，点击时复制其他表的某几列

例如，我想在book1的sheet1中添加一个按钮，点击时实现复制book2的sheet1中第3、5列，请问怎样做，谢谢... 例如，我想在book1的sheet1中添加一个按钮，点击时实现复制book2的sheet1中第3、5列，请问怎样做，谢谢展开

 我来答

3个回答

#热议# 为什么有人显老，有人显年轻？

真真真白丁
2014-10-29 · TA获得超过8522个赞

知道大有可为答主

回答量：4644

采纳率：85%

帮助的人：1743万

我也去答题访问个人页

关注

展开全部

亲，仅仅是复制吗？粘贴到那儿？

假设你粘贴到到Sheet1的第3、5列。则代码如下：

Sub cp()
Sheets("Sheet2").Columns(3).Copy Sheets("Sheet1").Columns(3)
Sheets("Sheet2").Columns(5).Copy Sheets("Sheet1").Columns(5)
End Sub

更多追问追答
追问

要是加一个按钮，该怎样写代码呢
追答
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴代码。关闭VBA窗口。
 
点击菜单“开发工具”，“插入”按钮。然后在工作表的空白处拖拽出一个矩形按钮。在按钮上点右键，指定宏，选择刚才粘贴的那个Sheet1.cp。确定。




追问

我用的是2003，并且是book1、book2两个工作薄，修改哪个地方？谢谢
是不是把sheets改为book1？
追答
工作簿？那就麻烦些，要先打开BOOK2，复制、粘贴完了再关闭BOOK2。
假设你的BOOK2工作簿在“D:\”，请根据实际情况修改代码中的文件路径。
代码改一下：
Sub cp()
Workbooks.Open Filename:="d:\book2.xls"
ActiveWorkbook.ActiveSheet.Columns(3).Copy ThisWorkbook.Sheets("Sheet1").Columns(3)
ActiveWorkbook.ActiveSheet.Columns(5).Copy ThisWorkbook.Sheets("Sheet1").Columns(5)
ActiveWorkbook.Close False
End Sub
代码粘贴的位置、插入按钮的方法都和上面一样。
追问

能实现，谢谢，但是我复制表中有1列是由公式计算得来的，复制后提示错误，怎么修改呢
追答
额，公式想如何处理，如果希望保留的话，需要提供公式文本，直接写入。如果只是需要粘贴数值的话，就简单些，代码修改如下：
Sub cp()
Workbooks.Open Filename:="d:\book2.xls"
ActiveWorkbook.ActiveSheet.Columns(3).Copy
ThisWorkbook.Sheets("Sheet1").Columns(3).PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.ActiveSheet.Columns(5).Copy
ThisWorkbook.Sheets("Sheet1").Columns(5).PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.Close False
End Sub