常用excel代码

Sub 删除全部分类汇总()
    On Error Resume Next
    For Each 表 In ActiveWorkbook.Sheets
        表.Select
        Cells.Select
        Selection.RemoveSubtotal
    Next
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 删除分页符()
    a = ActiveWindow.View
    ActiveWindow.View = xlPageBreakPreview
    ActiveSheet.HPageBreaks(1).DragOff xlDown, 1
    ActiveWindow.View = a
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 合并工作表()
    '
    ActiveWorkbook.Sheets.Add Before:=Worksheets(1) '在第一个工作表前插入新表
    ActiveSheet.Name = "新表"
    For I = 2 To ActiveWorkbook.Sheets.Count
        Sheets(I).Rows("1:" & Sheets(I).UsedRange.Rows.Count).Copy Sheets(1).Rows(ActiveSheet.UsedRange.Rows.Count + 2)
    Next I
End Sub

 其它VB相关：

---

 VB软件操作EXCEL教程：※VB全面控制Excel