哪位老师能帮我看下，问题出在哪里？

clubzhuang

选择信息的时候提示报错，不知道怎么办！

clubzhuang

没人吗？自己顶下。

clubzhuang

朱荣兴 发表于 2019-6-12 16:06
代码思路不佳，操作起来比较繁琐，似乎是个根据  基础信息   批量生成标签的问题，没必要弄得如此复杂吧

是的，是根据基础信息批量生成的标签。黄色部分都是需要生成到标签上的信息。

clubzhuang

朱荣兴 发表于 2019-6-12 16:33
这种问题，技术难度不大，但是非常繁琐，非一时之功。先留个记号吧

谢谢老师！

Chip_Kenny

1. Sub zz()
   
2. Dim a, b, c%(), r%, rr%, cc%, x%, y%
   
3. a = Split("p,o,q,u,v,x", ",")
   
4. ReDim c%(UBound(a))
   
5. For i = 0 To UBound(a)
   
6.     c(i) = Columns(a(i)).Column
   
7. Next
   
8. a = Sheets(1).[a9].CurrentRegion.Value
   
9. b = Sheets(2).[a1:n49].Value
   
10. x = 5: y = 3: r = 9
    
11. For ii = 2 To UBound(a) - 1
    
12.     For i = 0 To x - 1
    
13.         rr = i * r + 2 + i
    
14.         For j = 0 To y - 1
    
15.             cc = j * x + 2
    
16.             For n = 0 To UBound(c)
    
17.                 b(rr + n, cc) = a(ii, c(n))
    
18.             Next
    
19.         Next
    
20.     Next
    
21. Next
    
22. Sheets(2).Copy
    
23. [a1].Resize(UBound(b), UBound(b, 2)) = b
    
24. End Sub

复制代码

clubzhuang

Chip_Kenny 发表于 2019-6-17 16:06

谢谢，我去试试

clubzhuang

Chip_Kenny 发表于 2019-6-17 16:06

谢谢！老师。

clubzhuang

Chip_Kenny 发表于 2019-6-17 16:06

老师你的代码不对，所有的标签都一样的。