假设表1有10列资料，复制的目的地为12列。方法：1、打开控件工具箱（菜单-视图-工具栏-打钩控件工具箱），选中按钮工具，在空白处先制作一个按钮，可给按钮起个名字。2、按ALT-F11打开VBA编辑器，在按钮命令代码行中输入Selection.CopyRange("L1").SelectActiveSheet.Paste3、转回表1，选中要复制的列，点出按钮即可在12列复制出该列的全部内容。
