从 Excel 中的列表创建多个工作表 VBA处理

最新推荐文章于 2024-10-14 13:24:26 发布

原创最新推荐文章于 2024-10-14 13:24:26 发布 · 458 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel

这段VBA代码用于从活动单元格的列开始，遍历每一行，当遇到非空单元格时，会在当前工作簿中创建新的工作表，并以其内容命名。如果遇到空单元格且前一个空单元格值大于100，则结束循环。

Sub fromListCreateSheets()

Dim i As Long
Dim Addc As Long
Dim Addr As Long
Dim n As Long
Dim MySheet As Worksheet

Addc = ActiveCell.Column
Addr = ActiveCell.Row
i = 0
Set MySheet = ActiveSheet

Do

n = Addr + i

If MySheet.Cells(n, Addc) <> "" Then

Sheets.Add after:=ActiveSheet
ActiveSheet.Name = MySheet.Cells(n, Addc).Value

Else: If MySheet.Cells(n, Addc) = "" Or i > 100 Then Exit Do

End If

i = i + 1

Loop
End Sub