整理excle表格宏函数

/**
*
* 功能：整理权限宏函数
* 日期：2019－08－30
* 作者: wangchun
**/

Sub Macro1()
   Dim level_id, menu_name, grpid, k, j, col
   k = 1
   j = 1
   For col = 3 To 40 Step 1
   grpid = Cells(1, col).Value
   For i = 2 To 716 Step 1
      If Cells(i, col).Value <> "" Then
       level_id = Cells(i, 1).Value
       menu_name = Cells(i, 2).Value
    Call exe1(level_id, menu_name, k, j, grpid)
       k = k + 1
       j = j + 1
      End If
   Next i
   Next col
    Sheets("Sheet4").Select
End Sub

Sub exe1(ByVal a As String, ByVal b As String, ByVal c As String, ByVal d As String, ByVal e As String)
Sheets("Sheet4").Select
Cells(d, 1).Value = a
Cells(d, 2).Value = b
Cells(d, 3).Value = e
Cells(d, 4).Value = c
Sheets("menu").Select
End Sub

Sub emply()
Dim empid, dept, k
k = 1
For i = 2 To 167 Step 1
 If Cells(i, 5).Value <> "" Then
   empid = Cells(i, 1).Value
   For j = 7 To 14 Step 1
    If Cells(i, j).Value <> "" Then
     dept = Cells(i, j).Value
     Sheets("Sheet5").Select
     Cells(k, 1).Value = empid
     Cells(k, 2).Value = dept
     Sheets("emplyee").Select
     k = k + 1
    End If
   Next j
 End If
Next i
End Sub