整理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 <> "...
原创
2021-06-15 14:52:47 ·
185 阅读 ·
0 评论