怎样把sheet1里面一列的名字自动生成后面的sheet名？

qingfengwzm

求大神支招，怎样把附件sheet1里面一列的名字自动生成后面的sheet名？

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr
   
4.     Dim ws As Worksheet
   
5.     With Worksheets("sheet1")
   
6.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.         arr = .Range("a1:a" & r)
   
8.     End With
   
9.     For i = 2 To UBound(arr)
   
10.         wjm = Replace(arr(i, 1), "/", "_")
    
11.         On Error Resume Next
    
12.         Worksheets(wjm).Delete
    
13.         On Error GoTo 0
    
14.         Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
    
15.         ws.Name = wjm
    
16.     Next
    
17. End Sub
    

复制代码

chxw68

简单问题。

杨建营

参与一下。

杨建营

附件送上，请楼主参考。

仙女配凡人

这个好像只能用代码完成，WPS代码

1. function 批量创建工作表()
   
2. {
   
3.         let arr = Range('A1').CurrentRegion.Value2
   
4.         arr.forEach((i, o) => {
   
5.                 if (o == 0) return
   
6.                 let sht = Worksheets.Add(undefined, ActiveSheet)
   
7.                 sht.Name = i[0].replace(/^\'|\'$|[:\\/?*\[\]]/g, '-') //工作表名称不得有特殊字符'\/?*:[]
   
8.         })
   
9. }

复制代码

gwjkkkkk

参与一下。。。