1.1用宏录下Excel操作(gxy)

step1:打开表格,点击文件-选项-自定义功能区-将宏添加到主选项卡中-勾选开发工具

step2:回到主页面,点击菜单栏的开发工具,点击使用相对引用

1.1用宏录下Excel操作(gxy)

step3:点击录制宏,在跳出的小窗口上设置宏名和快捷键,再点击确定

1.1用宏录下Excel操作(gxy)

step4:录制宏,操作你所要的过程,给软件做个例子,然后录制进去。录制完毕后,点击停止录制

1.1用宏录下Excel操作(gxy)

step5:点击宏,选择你需要执行的宏,选中你要复制的那一列点击执行,机器就会重复你刚才录制的过程

1.1用宏录下Excel操作(gxy)

step6:改进宏,点击宏,在跳出的窗口点击编辑,将Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+a
'   Dim i As Long
For i = 2 To 10
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.RowHeight = 17.5
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown
    Next

End Sub

代码输入

1.1用宏录下Excel操作(gxy)

然后,就点击执行,就能直接1-20运行,不用再一个个点击才出来.

完毕!