请老师帮忙解决一下,自动生成标签的问题

fanhuayimeng

蓝桥玄霜 发表于 2020-1-10 15:06
基因的代码：

谢谢老师，我马上试试看

fanhuayimeng

蓝桥玄霜 发表于 2020-1-10 15:06
基因的代码：

老师提示这个错误，是啥意思呢

hzruziniu

TEST.rar (27.7 KB, 下载次数: 12)

2020-1-10 16:31 上传

点击文件名下载附件

1. 
   
2. <div class="blockcode"><blockquote>Sub 生成()     '
   
3.     Application.ScreenUpdating = False
   
4.     arr = Sheets("资料表").[a1].CurrentRegion
   
5.     Sheets("生成").Select
   
6.     For i = 2 To UBound(arr)
   
7.         n = (i - 2) * 12 + 1
   
8.         If n > 12 Then
   
9.             Sheets("模板").Range("A1").CurrentRegion.Copy Sheets("生成").Range("a" & n)
   
10.             Rows("1:12").Copy
    
11.             Rows(n + 1 & ":" & n + 12).PasteSpecial (xlPasteFormats) 'xlPasteColumnWidths
    
12.         End If
    
13.         Range("c" & n) = arr(i, 3)
    
14.         Range("c" & n + 1) = arr(i, 6)
    
15.         Range("c" & n + 2) = arr(i, 5)
    
16.         Range("c" & n + 3) = arr(i, 9)
    
17.         Range("c" & n + 4) = arr(i, 14)
    
18.         Range("c" & n + 5) = arr(i, 4)
    
19.         Range("c" & n + 6) = arr(i, 3)
    
20.         Range("c" & n + 7) = arr(i, 6)
    
21.         Range("c" & n + 8) = arr(i, 5)
    
22.         Range("c" & n + 9) = arr(i, 9)
    
23.         Range("c" & n + 10) = arr(i, 14)
    
24.         Range("c" & n + 11) = arr(i, 4)
    
25.            
    
26.         Range("e" & n) = arr(i, 5)
    
27.         Range("e" & n + 1) = arr(i, 7)
    
28.         Range("e" & n + 2) = arr(i, 8)
    
29.         Range("e" & n + 3) = arr(i, 10)
    
30.         Range("e" & n + 6) = arr(i, 5)
    
31.         Range("e" & n + 7) = arr(i, 7)
    
32.         Range("e" & n + 8) = arr(i, 8)
    
33.         Range("e" & n + 9) = arr(i, 10)
    
34.     Next
    
35.     Application.ScreenUpdating = True
    
36. End Sub
    
37. 
    
38. Sub 删除()   '删除12行以下的全部数据行
    
39.     Sheets("生成").Rows("13:" & Rows.Count).Clear
    
40. End Sub

复制代码

注意：在生成表保留12行的一张原表。

eashon111

fanhuayimeng 发表于 2020-1-10 15:35
老师提示这个错误，是啥意思呢

sheet1

fanhuayimeng

eashon111 发表于 2020-1-10 15:52
sheet1

谢谢老师，刚刚改成SHEET1 OK了,

fanhuayimeng

hzruziniu 发表于 2020-1-10 15:49
注意：在生成表保留12行的一张原表。

感谢老师，万分感谢！！帮了我大忙

fanhuayimeng

hzruziniu 发表于 2020-1-10 15:49
注意：在生成表保留12行的一张原表。

谢谢老师，帮了我大忙了，万分感谢

蓝桥玄霜

fanhuayimeng 发表于 2020-1-10 15:35
老师提示这个错误，是啥意思呢

少了个1：是sheet1