[已解决]行列工作表一起循环

xiaoni

工作表行列一起循环.zip (25.12 KB, 下载次数: 9)

2013-12-8 14:35 上传

点击文件名下载附件 问题在附件中，请有空的老师和同学帮忙解决，先谢谢

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-8 15:08

现在只要删除工作表，新建工作表都能触发事件：
修改取工作表名.zip (18.54 KB, 下载次数: 8)

2013-12-8 15:07 上传

点击文件名下载附件

跳转到最佳答案楼层

yyyydddd8888

请看行不行：
取工作表名.zip (19.52 KB, 下载次数: 4)

2013-12-8 14:58 上传

点击文件名下载附件

lisachen

1. Sub aaa()
   
2.     Dim i As Long, C As Long, R As Long
   
3.     i = Sheets.Count
   
4.     For i = 1 To i
   
5.         C = ((i - 1) Mod 5) + 1
   
6.         R = ((i - 1) \ 5) + 1
   
7.         Cells(R, C) = Sheets(i).Name
   
8.     Next i
   
9. End Sub

复制代码

yyyydddd8888

现在只要删除工作表，新建工作表都能触发事件：
修改取工作表名.zip (18.54 KB, 下载次数: 8)

2013-12-8 15:07 上传

点击文件名下载附件

梅一枝

1. Sub aa()
   
2.     Dim i As Long, C As Long, R As Long
   
3.     R = 1
   
4.     For i = 1 To Sheets.Count
   
5.         C = C + 1
   
6.         Cells(R, C) = Sheets(i).Name
   
7.         If C = 5 Then
   
8.             C = 0
   
9.             R = R + 1
   
10.         End If
    
11.     Next i
    
12. End Sub
    
13. 我来个简单的

复制代码