多库存提取汇总，而且位置会变动，请各位老师帮忙看看，感谢感谢。

2728911088 · 发表于 2018-3-19 21:00

请各位老师看看，感谢感谢。

2728911088 · 发表于 2018-3-20 09:39

请各位老师帮忙看看，感谢，

fyure · 发表于 2018-3-20 10:29

数据瞎造的？比如【DQAS库存1】里很多物料代码+物料名称相同的记录，后面属性都不一样？

opiona · 发表于 2018-3-20 11:30

Sub 复制()
FIR = 3
Set SH0 = Worksheets("库存汇总")
SH0.Range("A" & FIR & ":HZ1048576").Clear
For Each SH In Worksheets
If SH.Name <> SH0.Name Then
COLmax = SH0.UsedRange
LASTSH0 = UBound(COLmax, 1) + 1
COLmax = SH.UsedRange
LASTSH = UBound(COLmax, 1)
For ICOL = 1 To SH.Range("HZ1").End(xlToLeft).Column
If Val(SH.Cells(1, ICOL).Value) > 0 Then
SH.Range(SH.Cells(FIR, ICOL).Address & ":" & SH.Cells(LASTSH, ICOL).Address).Copy SH0.Range(SH0.Cells(LASTSH0, Val(SH.Cells(1, ICOL).Value)).Address)
End If
Next
End If
Next
End Sub

复制代码

opiona · 发表于 2018-3-20 11:31

多条件汇总库存.rar (360.49 KB, 下载次数: 6)

2728911088 · 发表于 2018-3-20 12:48

opiona 发表于 2018-3-20 11:30

是这种情况的，因为不同的属性用到不同的地方。感谢感谢，我先测试下。

2728911088 · 发表于 2018-3-20 12:59

opiona 发表于 2018-3-20 11:31

辛苦了老师，还有个小问题，汇总表里面的第二行能不能也是自动显示出来的，另外STEP 库存复制过来的代码能不能帮忙去掉代码后面三位大写的英文字母。

2728911088 · 发表于 2018-3-22 19:16

opiona 发表于 2018-3-20 11:31

老师帮忙看看，怎么换到其它表格里面就用不了，看看是不是我哪弄错了，感谢感谢！！！！！

2728911088 · 发表于 2018-3-29 12:22

opiona 发表于 2018-3-20 11:31

请老师抽空再帮忙看看，感谢感谢！！

		自动登录	找回密码
密码			免费注册

[求助] 多库存提取汇总，而且位置会变动，请各位老师帮忙看看，感谢感谢。