excel根据数据批量创建并重命名工作表

需求

根据一列数据，批量创建并重命名工作表

做法

1. 右键该sheet，选择查看代码

2. 输入VBA代码

正向创建

Sub create_sheets_by_col()
    Dim num%
    '  定义为integer*
    num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
    '  num是非空单元格数
    
    For i = 1 To num
        Sheets.Add after:=ActiveSheet
        Sheets(i + 1).Select
        Sheets(i + 1).Name = Sheet1.Cells(i, 1)
    Next i
End Sub

解释

Sub create_sheets_by_col()

• Sub 关键字用于声明一个子程序或宏。create_sheets_by_col 是子程序的名字，这个名字表明了宏的目的，即通过某一列的数据来创建新的工作表。

    Dim num%

• Dim 关键字用于声明一个变量。num% 声明了一个名为 num 的整型变量（Integer）。在VBA中，变量类型是通过在变量名后面加上一个类型声明字符来指定的，% 表示整型。

    num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))

• 这行代码使用Excel的 WorksheetFunction 对象的 CountA 方法来计算 Sheet1 工作表中A列的非空单元格数量。Application.WorksheetFunction 是访问Excel工作表函数的方式，CountA 函数计算指定范围内的非空单元格数。Sheet1.Range("A:A") 指定了 Sheet1 工作表的A列。

    For i = 1 To num

• 这行代码开始了一个 For 循环。循环变量 i 从1开始，一直增加到 num 的值。循环将重复执行下面的代码块，每次循环 i 的值都会增加1。

        Sheets.Add after:=ActiveSheet

• 在循环体内，Sheets.Add after:=ActiveSheet 是一个方法调用，它会在当前活动的工作表之后添加一个新的工作表。ActiveSheet 是一个内置属性，代表当前选中的工作表。

        Sheets(i + 1).Select

• Sheets(i + 1).Select 选择并激活新添加的工作表。因为新工作表是在当前活动工作表之后添加的，所以它的索引位置是 i + 1。

        Sheets(i + 1).Name = Sheet1.Cells(i, 1)

• 这行代码将新工作表的名称设置为 Sheet1 工作表中第 i 行第1列的单元格内容。这意味着每个新创建的工作表将以其对应的A列单元格内容命名。

    Next i

• Next i 语句标志着 For 循环的结束。每次循环结束时，i 的值都会增加1，直到它等于 num，此时循环停止。

End Sub

• End Sub 语句表示子程序的结束。这是宏定义的最后一行代码，它告诉VBA宏编辑器子程序的代码到此结束。

总体来说，这段代码的目的是遍历 Sheet1 工作表的A列，对于每个非空单元格，都会创建一个新的工作表，并将新工作表的名称设置为该单元格的值。这样，如果A列有5个非空单元格，那么就会创建5个新工作表，每个工作表的名称对应于A列中相应行的单元格内容。

效果

反向创建

Sub create_sheets_by_col_rev()
    Dim num%
    num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
    
    For i = 1 To num
        Sheets.Add
        Sheets(1).Name = Sheet1.Cells(i, 1)
        ' Sheet1=Sheets(i+1)， sheet1随着新工作表的建立被往后挤，序列数随之增大
    Next i
End Sub

解释

Sub create_sheets_by_col_rev()

• Sub 关键字用于声明一个子程序或宏。create_sheets_by_col_rev 是子程序的名字，这个名字表明了宏的目的是通过某一列的数据来创建新的工作表，并且可能有一些修改或优化（由“rev”后缀暗示）。

    Dim num%

• Dim 关键字用于声明一个变量。num% 声明了一个名为 num 的整型变量（Integer）。

    num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))

• 这行代码使用Excel的 WorksheetFunction 对象的 CountA 方法来计算 Sheet1 工作表中A列的非空单元格数量。Application.WorksheetFunction 是访问Excel工作表函数的方式，CountA 函数计算指定范围内的非空单元格数。Sheet1.Range("A:A") 指定了 Sheet1 工作表的A列。

    For i = 1 To num

• 这行代码开始了一个 For 循环。循环变量 i 从1开始，一直增加到 num 的值。循环将重复执行下面的代码块，每次循环 i 的值都会增加1。

        Sheets.Add

• 在循环体内，Sheets.Add 是一个方法调用，它会在工作簿的末尾添加一个新的工作表。

        Sheets(1).Name = Sheet1.Cells(i, 1)

• 这行代码将新添加的工作表（现在是工作簿中的第一个工作表，索引为1）的名称设置为 Sheet1 工作表中第 i 行第1列的单元格内容。这意味着每个新创建的工作表将以其对应的A列单元格内容命名。

    Next i

• Next i 语句标志着 For 循环的结束。每次循环结束时，i 的值都会增加1，直到它等于 num，此时循环停止。

End Sub

• End Sub 语句表示子程序的结束。这是宏定义的最后一行代码，它告诉VBA宏编辑器子程序的代码到此结束。

总体来说，这段代码的目的是遍历 Sheet1 工作表的A列，对于每个非空单元格，都会在工作簿的末尾创建一个新的工作表，并将新工作表的名称设置为该单元格的值。每次添加新工作表后，原有的工作表索引位置都会增加，因此新工作表始终是工作簿中的第一个工作表，其索引为1。

效果