Range("A1:K30").Select
Selection.Copy
Sheets(Array("Sheet1", "Sheet3", "Sheet4")).Select
Sheets("Sheet1").Range("A1").Activate
ActiveSheet.Paste
Sheets("Sheet3").Select
Range("A2").Select
End Sub
将该代码复制到表二,单元格区域可根据需要调整,在表二插入按钮指定这个宏,用时点击就可以了
2007(开发工具-Visual Basic-双击左侧工程栏中的sheet2-将代码粘贴在右面的“通用”栏下面;2003没有“开发工具”,你只要找到“Visual Basic”就可以;如果你是2007,可是没有“开发工具”,单击“excel大图标”-“excel选项”-“常用”-“使用excel时采用的首选项”-勾选“在功能区显示"开发工具"选项卡”)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)