用VBA自动填充

绿色心情小天使

大家坛友好：
     这是货架标签，把数据源上的：编码，名称、规格里的内容，依次填充到本张工作薄上，格式已定型，不能随意改动，字体：微软雅黑；字号：11；用VBA

沈默00

沈默00

试一下，，结果放在最后一个表里

沈默00

这一句要改一下，，不然最后一行没出来

绿色心情小天使

沈默00 发表于 2025-4-6 16:18
这一句要改一下，，不然最后一行没出来

感谢大神的热情帮助。

ykcbf1100

其实应该搞一个模版的。

ykcbf1100

1. Sub ykcbf()   '//2025.4.6
   
2.     arr = Sheets("数据源").UsedRange
   
3.     With Sheets("打印")
   
4.         .Range("B:B,e:e,h:h").NumberFormatLocal = "@"
   
5.         For i = 2 To UBound(arr) Step 3
   
6.             m = m + 4
   
7.             For y = 1 To 3
   
8.                 .Cells(m - 3, (y - 1) * 3 + 2) = arr(i, 2)
   
9.                 .Cells(m - 2, (y - 1) * 3 + 2) = arr(i, 3)
   
10.                 .Cells(m - 1, (y - 1) * 3 + 2) = arr(i, 4)
    
11.             Next
    
12.         Next
    
13.     End With
    
14. End Sub
    
15. 
    

复制代码

sdytsxd991122

绿色心情小天使

ykcbf1100 发表于 2025-4-6 17:43

经测试，还有一点小的缺陷：每个标签需要每张标签统一格式---做成统一大小的标签：字体为微软雅黑，字号11，物料名称的行距高度：66；物料编码和规格行距的高度为24；每张标签与标签之间的行距的高度也要固定：9，方便裁剪。每张A4大小设置21张标签（7*3），

taller

绿色心情小天使 发表于 2025-4-6 23:25
经测试，还有一点小的缺陷：每个标签需要每张标签统一格式---做成统一大小的标签：字体为微软雅黑，字号1 ...

调整行高，录制宏就可以得到代码