两个sub怎么先后运行？

chandelier9638

代码如下，请问在 thisworkbook 中如何自动先运行 sub abc 后运行 sub abc1 ？


Sub abc()
   
    arr = [c1].CurrentRegion
   
    On Error Resume Next
   
    For i = 2 To UBound(arr)
         
         If Sheets(arr(i, 3)) Is Nothing Then
              
              Sheets.Add(after:=Sheets(Sheets.Count)).Name = arr(i, 3)
         End If
    Next
   
End Sub


Sub abc1()
arr = [a1:u999]
For Each sht In Sheets

    If sht.Name <> "???" Then
r = 2
With sht
For i = 1 To 999
    If arr(i, 3) = sht.Name Then
   
        Application.Goto Reference:="R2C1:R500C1"
        
        Selection.FormulaR1C1 = "=IF(RC2="""","""",COUNTA(R2C2:RC2))"
        Sheets("???").Range(Cells(1, "A"), Cells(1, "U")).Copy .Cells(1, 1)
        
        Sheets("???").Range(Cells(i, "A"), Cells(i, "U")).Copy .Cells(r, 1)
        
        r = r + 1
   
    End If
   
Next
End With
End If
Next
End Sub

chandelier9638

附件已经上传

tudarong

在Sub abc()的end sub之前加上call abc1即可

lsc900707

chandelier9638 发表于 2018-7-15 13:26
附件已经上传

用这个拆分的代码：

1. Private Sub CommandButton1_Click()
   
2.     tms = Timer
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> ActiveSheet.Name Then sht.Delete
   
7.     Next
   
8.     Application.DisplayAlerts = True
   
9.     Set d = CreateObject("scripting.dictionary")
   
10.     arr = [a1].CurrentRegion
    
11.     m = UBound(arr): n = UBound(arr, 2)
    
12.     For i = 2 To m
    
13.         If Not d.exists(arr(i, 3)) Then
    
14.             Set d(arr(i, 3)) = Range("a" & i).Resize(1, n)
    
15.         Else
    
16.             Set d(arr(i, 3)) = Union(d(arr(i, 3)), Range("a" & i).Resize(1, n))
    
17.         End If
    
18.     Next
    
19.     x = d.keys
    
20.     For k = 0 To UBound(x)
    
21.         Set sht = ActiveWorkbook.Sheets.Add(, after:=ActiveSheet)
    
22.         sht.Name = x(k)
    
23.         d.items()(k).Copy sht.[a2]
    
24.         Rows("1:1").Copy sht.[a1]
    
25.     Next
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox Format(Timer - tms, "拆分完成，共耗时：0.00秒")
    
28. End Sub
    

复制代码

lsc900707

附件供测试参考：

chandelier9638

tudarong 发表于 2018-7-15 13:27
在Sub abc()的end sub之前加上call abc1即可

我在网上也看过这个方法，但实际是运行不了的

chandelier9638

lsc900707 发表于 2018-7-15 17:11
附件供测试参考：

感谢大神帮助！！