利用VBA程序来根据目录创建对应工作表

1、工具栏——开发工具——Visual Basic，打开Microsoft Visual Basic,也可使用快捷键Alt+F11，

3、输入以下程序：Sub 根据目录创建对应工作表()Dim i As IntegerFor i = 2 To 2壅酪认奉7 Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = Range("A" & i)NextEnd Sub如图所示：我这里目录商品有26行，故i 是 2 to 27 ,如果目录商品有1000行，就把27改为1001。