VBA宏代码语句

1、一：ctrl+v默认数值粘贴

Sub 数值粘贴()

'

' 宏3 宏

'

' 快捷键: Ctrl+v

'

    Range(ActiveCell.Address).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub

2、二：合并单元格

'合并单元格

    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

3、三：获取表格最后一行

lastrow = b.Range("B65536").End(xlUp).Row

4、四：在**sheet前复制sheet并重命名

ActiveSheet.Select

ActiveSheet.Copy Before:=Sheets("Summary")

ActiveSheet.Select

ActiveSheet.Name = Range("D2").Value

5、五：插入一行

Rows("7:7").Select

    Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

6、六：关闭屏幕更新，加快宏的执行速度

Application.ScreenUpdating = False

........

........

Application.ScreenUpdating = True