[已解决]求excel 简便方法

wing囡

原始表格：
材料\型号	AS1	AS2	AS3	AS4	AS5	AS6	AS7
纸箱1	0.5	0	0.35	1	0	0	0
纸箱2	0	0	0	0	0	0.8	0.32
纸箱3	0	0.55	0	0	0.21	0	0
填充架1	1.3	0	0	0	0	0	0
填充架2	0	1.3	0	0	0	1.3	1.3
填充架3	0	0	1.3	0	1.3	0	0
填充架4	0	0	0	1.3	0	0	0
螺钉1	1	0	0	0	0	0	0
螺钉2	0	2	0	0	0	6	0
螺钉3	0	0	3	0	5	0	0
螺钉4	0	0	0	4	0	0	6

最终目标表格：
材料	型号	台耗
螺钉1	AS1	1.00
螺钉2	AS2	2.00
螺钉2	AS6	6.00
螺钉3	AS3	3.00
螺钉3	AS5	5.00
螺钉4	AS4	4.00
螺钉4	AS7	6.00
填充架1	AS1	1.30
填充架2	AS2	1.30
填充架2	AS6	1.30
填充架2	AS7	1.30
填充架3	AS3	1.30
填充架3	AS5	1.30
填充架4	AS4	1.30
纸箱1	AS1	0.50
纸箱1	AS3	0.35
纸箱1	AS4	1.00
纸箱2	AS6	0.80
纸箱2	AS7	0.32
纸箱3	AS2	0.55
纸箱3	AS5	0.21

本来我是想用多重数据透视来完成的，但是因为原始数据量太大，所以导致显示不全....  但因为里面存在很多0数据的.. 例如：纸箱1 的 AS2型号等等，所以如果出来的数据为“0”不显示的话，或许可以全部显示，请问有方法吗？谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2013-1-14 17:13

等学习别的办法 book1b.rar (9.07 KB, 下载次数: 11)

2013-1-14 17:13 上传

点击文件名下载附件


Sub test()
    Dim A, B, i, j, k
    A = Range("a2:h" & Range("a2").End(xlDown).Row)
    ReDim B(1 To UBound(A) * UBound(A, 2), 1 To 3)
    For i = 2 To UBound(A)
        For j = 2 To UBound(A, 2)
            If A(i, j) > 0 Then
                k = k + 1
                B(k, 1) = A(i, 1)
                B(k, 2) = A(1, j)
                B(k, 3) = A(i, j)
            End If
        Next j
    Next i
    Range("a17:c65536").ClearContents
    [a17].Resize(k, 3) = B
    [a17].Resize(k, 3).Sort [a17]
End Sub

跳转到最佳答案楼层

爱疯

等学习别的办法 book1b.rar (9.07 KB, 下载次数: 11)

2013-1-14 17:13 上传

点击文件名下载附件


Sub test()
    Dim A, B, i, j, k
    A = Range("a2:h" & Range("a2").End(xlDown).Row)
    ReDim B(1 To UBound(A) * UBound(A, 2), 1 To 3)
    For i = 2 To UBound(A)
        For j = 2 To UBound(A, 2)
            If A(i, j) > 0 Then
                k = k + 1
                B(k, 1) = A(i, 1)
                B(k, 2) = A(1, j)
                B(k, 3) = A(i, j)
            End If
        Next j
    Next i
    Range("a17:c65536").ClearContents
    [a17].Resize(k, 3) = B
    [a17].Resize(k, 3).Sort [a17]
End Sub

tkgg93

用透视表的多表合并功能，加工一下就可以

pureshadow

wing囡

tkgg93 发表于 2013-1-14 18:27
用透视表的多表合并功能，加工一下就可以

我也是这样想~ 不过数据好像太多，把列拉到行的时候没反应....

wing囡

pureshadow 发表于 2013-1-14 19:16

我也是这样想~ 不过数据好像太多，把列拉到行的时候没反应....