在线急求如何利用excel宏批量打印标签

熊文来

IVYQQQQQ 发表于 2021-12-30 22:26
给你多模拟了一点数据，虚拟打印成PDF，要直接打印可以修改一下代码！

我看了下你得代码 有几个地方不太理解。我还是小白，还望您能解释下谢谢！

xrow = Sheets("数据源").Range("b65536").End(3).Row - 1  这个地方取B列最后一行非空单元格 为什么要减1
r = WorksheetFunction.RoundUp((xrow / 4), 0)   除以4 怎么得到的？
arr = Worksheets("数据源").Range("A2:H" & r * 4 + 1) 这里为什么又+1

    For i = 0 To r - 1  循环为什么从0开始 到最后一次 为什么又是减1

IVYQQQQQ

熊文来 发表于 2022-4-21 16:20
我看了下你得代码 有几个地方不太理解。我还是小白，还望您能解释下谢谢！

xrow = Sheets("数据源").R ...

看看实际的数据，有个标题行影响

熊文来

IVYQQQQQ 发表于 2022-4-22 10:13
看看实际的数据，有个标题行影响

好的 谢谢 我大致明白了点