多工作表Excel文档模版的前处理

1、功能简介

在向多工作表（几十上百个）Excel文档模版输入数据时，进行包括清理内容、冻结标题行和定义名称等前处理操作。

2、代码

Option Explicit

Sub PreTreatment()
'
' PreTreatment 宏
' 删除第一、二行以外的数据； 冻结首行，即标题栏； 定义A1名称为当前工作簿名称；
'

'
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Activate
        '删除第一、二行以外的数据
        Rows("3:3").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.ClearContents
        
        '冻结首行，即标题栏
'        Range("A1").Select
        With ActiveWindow
            .SplitColumn = 0
            .SplitRow = 1
        End With
        ActiveWindow.FreezePanes = True
        
        '定义A1名称为当前工作簿名称
        Range("A1").Name = Sheets(i).Name
        Range("A1").Select
        
    Next i
End Sub