Question

vba excel 根据sheet1的每一行都建立一个工作表 并以每行第一个单元格命名工作表

例如 现在excel sheet1 每一行都是一个学生 A1 A2 A3…… 都是人名
现在要批量建立工作表 使得每个工作表都以学生名命名 求大神帮忙~！！！

Answer 1

建一个模块，把以下代码复制进乎氏去，然后建个按钮兆携，指定宏abc，如果有100个名字，把下面，族顷伏for i=1 to 3改成for i=1to 100
Sub abc( )
for i=1to 3
sheets.add
activesheet.name=Range("a"& i)
Next
End sub

追问

sheet.add 是黄色的 是我哪里弄错了吗？

追答

是sheets.add，有个S

上面是sheets.add，有个S
另外代码可以修改成以下这样，会自动检查sheet1的A列有多少个名字，就建多少个表:
sub abc( )
On Error Resume Next
row1 = Worksheets("sheet1").Range("a65536").End(xlUp).Row
for i=1 to row1
sheets.add
activesheet.name=Worksheets("sheet1").Range("a"& i)
Next
End sub