作者：乔山办公网日期：
返回目录：office365
请参考：抄Excel中如何给常用百宏或VBA添加一度个执行按知钮_百度经验道
http://jingyan.baidu.com/article/5d368d1e1a89b73f60c05722.html
简单的方法：自己可练习创建一个“宏”，（就是知录下自已需要做的操作步骤）
方法：点击——工具——宏——录制新宏——弹出道窗口——确认宏名称——这时就会弹出一个录像框，你就可以一步一步点击你要做的操作，按下内“停止”，就结束了宏录制！
你再进入工具——宏——选择刚录下的宏名称——点击“编辑”——这里面就是你要的宏代码了，自已可以研究了！
如下面就是一个宏，执行后会自容己打开：工作表3
代码是：
Sub 按钮1_单击()
Sheet (Sheet3)
End Sub
Sub Macro1()
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
宏名为百macro1，表1为sheet1，表2为sheet2 ，可度根据实际修改。
其实自己录一个更好。方法是：依次点菜单：工具-宏-录制问新宏，在弹出的答对专话框中输入宏名（可以默认属的），确定之后开始录制。点表1，再同时按Ctrl+A就可选择表1全部内容，按Ctrl+V完成复制。点表2，点a1单元格，同时按Alt+E键，再按S键，在弹出的对话框中点选“数值”，确定并点停止录制按钮，完成录制。再打开工具-宏-宏，就可以看到你刚才录制的宏了，可以运行，也可以编辑。
选中行抄然后袭用这个试百度试
Sub 宏1()
Dim r As Integer
r = Selection.Row
Range("a" & r).FormulaR1C1 = "=R[-1]C"
Range("c" & r).FormulaR1C1 = "=R[-1]C"
Range("d" & r).FormulaR1C1 = "=R[-1]C"
End Sub