政府网站建设 互联网武汉seo论坛
需求
根据一列数据，批量创建并重命名工作表
做法
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 numSheets.Add after:=ActiveSheetSheets(i + 1).SelectSheets(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 numSheets.AddSheets(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。
效果
