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