利用宏查询数据汇总到另一张表的对应位置

Irisforever

求助各位大神帮忙！

描述：1. 附件表格一共有5个sheet， 分别是总表，下订单，到货和库存。还有一个最终效果的示意图
          2. 每张表头的数字代表相应星期。所有sheet的表头也就是星期数是对应的。
          3. 下订单，到货和库存这三个sheet会在实际操作中有更多的行数和item编号。   

目标： 1. 在总表每个item下面插入四个空行
           2. 从下订单sheet中找出对应总表的各个item整行数据，复制到第一空行
           3. 从到货sheet中找出对应总表的各个item整行数据，复制到第二空行
           4. 将库存sheet中找出数据放到总表的第三空行的C5, C10... 单元格

完成效果的样子在最后一个sheet。

小的在这里跪谢各位了！！！

不知道为什么

欢迎新人
可惜你得描述和附件压根不是一回事啊

Irisforever

不好意思，手抖上传错了。 重新上传了一下，谢谢！

Irisforever

不知道为什么 发表于 2018-8-16 22:43
欢迎新人
可惜你得描述和附件压根不是一回事啊

重新上传了一份，不好意思。。

Irisforever

没人知道怎么做吗。。？

LikeStudy

1. Sub Macro1()
   
2.     j = 3
   
3.     Sheets(1).Select
   
4.     rn = [a1].CurrentRegion.Rows.Count - 1
   
5.     cn = [a1].CurrentRegion.Columns.Count - 2
   
6.     For i = 1 To rn
   
7.         Rows(j).Resize(4).Insert
   
8.         k = 0
   
9.         For Each sh In Sheets(Array(2, 3, 4))
   
10.             Cells(j + k, 2) = sh.Name
    
11.             Cells(j + k, 3).Resize(, cn) = sh.Cells(i + 1, 2).Resize(, cn).Value
    
12.             k = k + 1
    
13.         Next
    
14.         j = j + 5
    
15.     Next
    
16. End Sub
    

复制代码

此宏按附件中每个Sheet的ITEM数值和排序一致的特性编写，如果实际工作中不一致则需要再加语句。

Irisforever

LikeStudy 发表于 2018-8-17 23:06
此宏按附件中每个Sheet的ITEM数值和排序一致的特性编写，如果实际工作中不一致则需要再加语句。

谢谢你的解答，问一下sh代表什么？

jiminyanyan

Irisforever 发表于 2018-8-18 21:17
谢谢你的解答，问一下sh代表什么？

工作表。。。。

Irisforever

jiminyanyan 发表于 2018-8-18 21:39
工作表。。。。

6楼第九行里的sh我看没有声明过啊。。 而且这种Array(2,3,4)是指三维数组吗 可以解释一下吗？

jiminyanyan

Irisforever 发表于 2018-8-18 21:48
6楼第九行里的sh我看没有声明过啊。。 而且这种Array(2,3,4)是指三维数组吗 可以解释一下吗？

可以不用声明的。后面是一维数组。。。