VBA宏代码语句
我用过的各种宏代码语句,保留以便后续使用
0Excel快速编辑宏
一：ctrl+v默认数值粘贴
Sub 数值粘贴()
'
' 宏3 宏
'
' 快捷键: Ctrl+v
'
Range(ActiveCell.Address).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
二：合并单元格
'合并单元格
Range("H7:J7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
三：获取表格最后一行
lastrow = b.Range("B65536").End(xlUp).Row
四：在**sheet前复制sheet并重命名
ActiveSheet.Select
ActiveSheet.Copy Before:=Sheets("Summary")
ActiveSheet.Select
ActiveSheet.Name = Range("D2").Value
五：插入一行
Rows("7:7").Select
Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
六：关闭屏幕更新，加快宏的执行速度
Application.ScreenUpdating = False
........
........
Application.ScreenUpdating = True
版权声明：本站【趣百科】文章素材来源于网络或者用户投稿，未经许可不得用于商用，如转载保留本文链接：https://www.qubaik.com/answer/164513.html
