如图 我写了两个模块,模块1是按部门拆分工作表,模块2是把相应部门的数据复制到对应的拆分好的工作表里,先执行模块1,然后执行模块2运行正常。但是我想在模块1里拆分工作表这个过程完成后直接调用模块2进行数据复制,实现一键拆分,代码如下,但是只能实现拆分工作表,并不能复制数据,请问是哪里出问题了,新人求教,忘各位大神解答,谢谢!
Sub shtadd_1()
Dim i As Integer, sht As Worksheet
i = 2
Set sht = Worksheets("站点")
Do While sht.Cells(i, "J").Value <> "" '循环条件
On Error Resume Next '没有工作表时,忽略下一行代码引起的错误
If Worksheets(sht.Cells(i, "J").Value) Is Nothing Then '判断是否存在对应的部门工作表
Worksheets.Add after:=Worksheets(Worksheets.Count) '在所有工作表之后插入新工作表
ActiveSheet.Name = sht.Cells(i, "J").Value '更改工作表名称
End If
i = i + 1 '行号增加1
Loop
Call 模块2.fenlei
End Sub
Sub shtadd_1()
Dim i As Integer, sht As Worksheet
i = 2
Set sht = Worksheets("站点")
Do While sht.Cells(i, "J").Value <> "" '循环条件
On Error Resume Next '没有工作表时,忽略下一行代码引起的错误
If Worksheets(sht.Cells(i, "J").Value) Is Nothing Then '判断是否存在对应的部门工作表
Worksheets.Add after:=Worksheets(Worksheets.Count) '在所有工作表之后插入新工作表
ActiveSheet.Name = sht.Cells(i, "J").Value '更改工作表名称
End If
i = i + 1 '行号增加1
Loop
Call 模块2.fenlei
End Sub