[已解决]自动生成工作表目录

wxfwxj

求高手帮组 Book1.zip (19.85 KB, 下载次数: 33)

2015-4-7 09:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

wayy

2015-4-7 11:24

1. Sub wayy()
   
2. Dim i, mrow, mcol As Long
   
3. Range("A3:IV10000").ClearContents
   
4. mcol = 2
   
5. For i = 2 To Sheets.Count
   
6.   If i > 2 And (i - 2) Mod 20 = 0 Then
   
7.     mcol = mcol + 4
   
8.   End If
   
9.   mrow = ((i - 2) Mod 20) + 3
   
10.   Cells(mrow, mcol) = i - 1
    
11.   Cells(mrow, mcol + 1) = Sheets(i).Name
    
12.   Cells(mrow, mcol + 2) = Sheets(i).[F1].Value
    
13. Next
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

wayy

1. Sub wayy()
   
2. Dim i, mrow, mcol As Long
   
3. Range("A3:IV10000").ClearContents
   
4. mcol = 2
   
5. For i = 2 To Sheets.Count
   
6.   If i > 2 And (i - 2) Mod 20 = 0 Then
   
7.     mcol = mcol + 4
   
8.   End If
   
9.   mrow = ((i - 2) Mod 20) + 3
   
10.   Cells(mrow, mcol) = i - 1
    
11.   Cells(mrow, mcol + 1) = Sheets(i).Name
    
12.   Cells(mrow, mcol + 2) = Sheets(i).[F1].Value
    
13. Next
    
14. End Sub
    

复制代码