逐行往下，按行数据分类计算汇总，内标签数据，外标签数据

lsyoo

求助老师，帮忙做个代码，实现，把工作簿NEDA，工作表NEDA,按行把整行选定单元格内容，
复制到工作簿Label,工作表"外"，工作表"内"，如图1，图2 所示。
(1) 以工作表NEDA第二行数据举例： 如 图1 所示。
工作表NEDA,I列为：整箱数，K列为：尾箱数  I2=4，K2=1，(4+1)=5 总共5箱，即整箱4行，尾箱一行，   
   把工作表NEDA,A2:G2,H2, 和  A2:G2,J2,选中区域单元格，复制到工作簿Label-外，整箱数量，4行，加上 尾箱数量，1行。共5行，
   即 Label-外表 从第2行到第7行。
外包装3类：
1.整箱内装4盒，
2. 一箱以上，4盒1箱 依次包装，
3.不满4盒，也算一箱。
每个内盒，有一个唯一码，5位数  Q1 为上次用到编码，这次从1235 开始。
第1行：起始码：01235，终止码：01238
第2行：起始码：01239，终止码：01242
第3行：起始码：01243，终止码：01246
第4行：起始码：01247，终止码：01250
   尾箱数量   1箱
第5行：起始码：012451，终止码：01253
(2) 以工作表NEDA第二行数据举例： 如图2 所示。
M列（整盒数），O列（尾盒数） M2=18，O2=1，(18+1)=19 总共19盒
把工作表NEDA,A2:D2,和 F2:G2,L2,N2, 选中单元格区域数据复制到 工作薄Label-内，
从第二行向下重复复制 18行 整盒数量，加上 1行 尾盒数量（共19行）。
（ID编码）唯一码：
  第二行 01235
    依次类推
  第19行 01253

chxw68

只写了[外]的代码，整箱盒数和外箱盒数没搞明白。

ykcbf1100

原代码有什么问题吗？

lsyoo

chxw68 发表于 2025-1-15 10:41
只写了[外]的代码，整箱盒数和外箱盒数没搞明白。

整箱 内装4盒， （尾箱数量/整盒数量）向下取整得到 尾箱装几盒。
（整箱数量+尾箱数量）/整盒数量=整盒数  ，

chxw68

lsyoo 发表于 2025-1-15 10:53
整箱 内装4盒， （尾箱数量/整盒数量）向下取整得到 尾箱装几盒。
（整箱数量+尾箱数量）/整盒数量=整 ...

整箱都是4盒吗？你看看NEDA的第4行数据好像不太对吧？

lsyoo

chxw68 发表于 2025-1-15 11:08
整箱都是4盒吗？你看看NEDA的第4行数据好像不太对吧？

老师
起始码和终止吗还有点小问题啊
第一行数据的起始码正确是01251  终止码：01253


第4行是 不满一箱的数量，也算是一箱。 2整盒，加一尾盒，3盒。

lsyoo

ykcbf1100 发表于 2025-1-15 10:52
原代码有什么问题吗？

全部是整箱数量，和整盒数量，没有尾箱数量，没有尾盒数量

chxw68

lsyoo 发表于 2025-1-15 11:20
第4行是 不满一箱的数量，也算是一箱。 2整盒，加一尾盒，3盒。

晕了。还不如提供总数量、每箱盒数、每盒数量，这样一目了然。

lsyoo

chxw68 发表于 2025-1-15 11:30
晕了。还不如提供总数量、每箱盒数、每盒数量，这样一目了然。

老师，
整箱数量*箱数+尾箱数量=总数量

chxw68

[外]表应该正确了。