1、一：ctrl+v默认数值粘贴Sub 数值粘贴()'' 宏3 宏'' 快捷键: Ctrl+v' Range(A艘早祓胂ctiveCell.Address).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=FalseEnd 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.SelectActiveSheet.Copy Before:=Sheets("Summary")ActiveSheet.SelectActiveSheet.Name = Range("D2").Value
5、五：插入一行Rows("7:7").Select Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
6、六：关闭屏幕更新，加快宏的执行速度Application.ScreenUpdating = False................Application.ScreenUpdating = True