跪求自动批量生成表格

樱花树下

修改不同sheet   A2单元格 的值的代码是？

比如 sheet1 A1单元格数字为3

那么sheet1 A2单元格自动填写为1
那么sheet2 A2单元格自动填写为2
那么shee3  A2单元格自动填写为3
新建 Microsoft Excel 工作表.zip (2 KB, 下载次数: 25)

2013-5-12 09:30 上传

点击文件名下载附件

樱花树下

难点1：FLL1 最终效果.xls 第6、7页按FLL1第6/7有两个物料和第一物料的位置无法显示出来
解决一个 将位号栏向左对齐即可 原因为前面FLL空格太长

cushion1

最好上传个附件，并虚拟结果数据

樱花树下

已经添加附件

cushion1

看看是不是你要的效果 附件： share3h.zip (13.18 KB, 下载次数: 23)

2013-5-18 21:15 上传

点击文件名下载附件

1. Sub share3h()
   
2. 
   
3. r = Sheets.Count
   
4. 
   
5. With Sheets(1)
   
6. 
   
7. a = Cells(1, 1)
   
8. 
   
9.     For b = 1 To a - r
   
10.         If a > r Then
    
11.             Sheets.Add after:=Sheets(Sheets.Count)
    
12.             Sheets(Sheets.Count).Name = "Sheet" & Sheets.Count
    
13.             r = Sheets.Count
    
14.         End If
    
15.     Next
    
16.    
    
17.     For i = 1 To r
    
18.     Sheets(i).Cells(2, 1) = i
    
19.     Next
    
20. 
    
21. End With
    
22. 
    
23. End Sub

复制代码