案例一
Public Sub Test2(ByRef table As String)
Sheets(table).Select
Columns("H:H").Select
End Sub
'选中表 sheet1 H列
Sub cc()
Test2 ("sheet1")
End Sub
案例二 名字带有参数
Sub m1(vargr As String, time As Integer)
Windows("var.xls").Activate
Sheets(vargr & "_m" & time & "2018").Select
Range("A1").Select
End Sub
Sub cc2(j As Integer)
Windows("分析.xlsx").Activate
Sheets("m" & j).Select
For i = 1 To 9
Call m1("group_org_" & i, j)
Next
For i = 1 To 9
Call m1("group_evt_" & i, j)
Next
End Sub
Sub cc4()
Call cc2(1)
Call cc2(3)
End Sub