UC知道关于vba按条件新建工作表
来源：百度知道 编辑：UC知道 时间：2024/07/04 20:31:39
“汇总”工作表里面的第一列是一些数字，如下
a b
1 101
2 103
3 101
4 105
5 103
6 102
我想通过a列来新建工作表，但是a列中有重复的数字，所以新建工作表的时候
要判断该工作薄里面是否有这个工作表，如果没有，则新建，如果有，则循环至下一行再去判断
难点是我这张“汇总”中的数据是不能排序的
请高手指点
错了，应该是b列
a b
1 101
2 103
3 101
4 105
5 103
6 102
我想通过a列来新建工作表，但是a列中有重复的数字，所以新建工作表的时候
要判断该工作薄里面是否有这个工作表，如果没有，则新建，如果有，则循环至下一行再去判断
难点是我这张“汇总”中的数据是不能排序的
请高手指点
错了，应该是b列
如有问题可以Q我，40194204
'代码开始===========================================================
Sub Add_Sheets()
Dim i, j, k As Integer
Dim wsNewWorksheet As Worksheet
j = Sheets("汇总").Range("B65536").End(xlUp).Row
For i = 1 To j
k = 0
For Each sht In Sheets
If sht.Name = CStr(Range("B" & i).Value) Then
k = 1
Exit For
End If
Next sht
If k = 0 Then
Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))
wsNewWorksheet.Name = Cells(i, 2).Value
End If
Next i
End Sub
'代码结束===========================================================