1.1用宏录下Excel操作(gxy)

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

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


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


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


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


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-20运行,不用再一个个点击才出来.

完毕!

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值