按模板填充内容问题，For 循环出错，请路过的老师帮忙解决，谢谢

z1979

如何才能根据“数据表”中的内容转换成"导岀表"表中的表格格式.
因数据量比较大且项目数量不固定，如果每一行都这样做，工作量比较大。在论坛上找到一些代码凑合，但仍存在问题，
制定好一份表格式，加个循环语句，将数据表中的内容代入表格式中，再复制到另外一个工作簿中，如此循环直到完成。
请各位老师帮帮忙解决
谢谢。

1. Sub 导出()
   
2.     Dim j
   
3.     Application.DisplayAlerts = False
   
4.     For j = 12 To [a65536].End(xlUp).Row
   
5.         If Cells(j, 1) <> "" Then
   
6.             For i = [L4] To [L5] Step 1
   
7.                 [L2] = i
   
8.                 [B2] = Cells(j, 1)
   
9.                 [B3] = Cells(j, 2)
   
10.                 [B4] = Cells(j, 2)
    
11.                 [B5] = Cells(j, 2)
    
12.                 [B6] = Cells(j, 2)
    
13.                 [B7] = Cells(j, 2)
    
14.                
    
15.                 [B8] = Cells(j, 3)
    
16.                 [B9] = Cells(j, 3)
    
17.                
    
18.                 [D3] = Cells(j, 4)
    
19.                 [D4] = Cells(j, 4)
    
20.                 [D5] = Cells(j, 4)
    
21.                 [D6] = Cells(j, 4)
    
22.                 [D7] = Cells(j, 4)
    
23.                 [D8] = Cells(j, 4)
    
24.                 [D9] = Cells(j, 4)
    
25.                
    
26.                 [F3] = Cells(j, 5)
    
27.                 [F4] = Cells(j, 6)
    
28.                 [F5] = Cells(j, 7)
    
29.                 [F6] = Cells(j, 8)
    
30.                 [F7] = Cells(j, 9)
    
31.               
    
32.                
    
33.                
    
34.                 Range("A2", "H9").Select
    
35.                 Selection.Copy
    
36.                 Sheets("导出表").Select
    
37.                 y = [a65536].End(xlUp).Row + 1
    
38.                 Range("A" & y).Select
    
39.                 ActiveSheet.Paste
    
40.             Next
    
41.             [L4] = 12
    
42.             [L2] = 12
    
43.         End If
    
44.     Next
    
45.     'MsgBox ("导出完成" & i & "个")
    
46.     Application.DisplayAlerts = True
    
47. End Sub

复制代码

补充内容 (2014-10-18 17:36):
求助发了几天，没有老师出手。在论坛上找到一些代码凑合。请各位老师看看还有其它的代码可以达到此效果吗，附件在7楼，现在的问题是导出内容不知怎么样设置纸张进行打印。如果老师空闲时间就出手解决。谢谢。

z1979

问题比较难解决，所自己顶一顶。

z1979

请路过的老师帮忙解决代码问题。谢谢。

z1979

再顶。求解决。

zhou0914

同求…………

z1979

恳求老师出手解决。

z1979

1. Sub 导出()
   
2.     For i = [L4] To [L5] Step 1
   
3.         [L2] = i
   
4.         Sheet1.Range("A1:H8").Copy
   
5.         With Sheets(3)
   
6.             .Select
   
7.             rw = .[a65536].End(xlUp).Row    'Sheets("Sheet2") 最后一行
   
8.             .Cells(rw + 1, 1).Select
   
9.             Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
   
10.             xlNone, SkipBlanks:=False, Transpose:=False
    
11.         End With
    
12.         Sheets(1).Select
    
13.     Next
    
14.     [L4] = 2
    
15.     [L2] = 2
    
16. End Sub

复制代码

燕雀安知

z1979 发表于 2014-10-16 18:58
恳求老师出手解决。

你的附件内容让人瞧了半天始终不知所提要求有何意义。

评：求助的附件要认真准备，最好他人一看附件就很快明白你的意图，而非胡乱列些无意义的内容，显得既乏味无趣，也让人因不明所以而不耐烦，最终弃之。

山菊花

z1979 发表于 2014-10-18 17:32

最后一行数据没有导出是因为“样板表!L5”输入的结束行号是5，改为6才输出最后一行数据，程序没有问题。
将程序改为用数组，先将数据保存到数组，然后一次写入“导出表”，见附件。