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