建表

sub jiaobiao()
dim i as integer
for i =2 to sheets("目录").range("B65535").end[xlup].row
sheets.add after:=sheets(sheets.count)
activesheet.name=sheets("目录").range("B" & i)
end sub