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
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
本文标题：建表
本文链接：https://www.haomeiwen.com/subject/kvjnzftx.html
网友评论