熬到半夜，求助“大量数据形式变成单一数据行“”

玥儿妈妈

数据来源标有很多产品，产品又分材质不同，但同一种产品尺寸相同，行数有很多，但是列产品信息固定，整理后的模板也是固定
目的：需要根据关键点不同的“材质“分类整理出不同的产品信息及金额

请问有没有什么宏可以一次性整理所有的数据，因为数据来源的产品行数非常多，但是列数固定就这些 产品信息


熬到半夜还是做不出来可以用的宏，求助小哥哥小姐姐棒棒忙，非常感谢

liulang0808

Sub °′Å￥1_Click()
    r = 1
    crr = Array(1, 2, 3, 4, 9, 10, 11, 12)
    Application.ScreenUpdating = False
    arr = Sheets("êy¾Yà′Ô′").UsedRange
    brr = [a1].Resize(UBound(arr) * 4, 9)
    For j = 1 To UBound(arr)
        If arr(j, 3) <> "&#195;èê&#246;" Then
            For i = 4 To 8
                If Len(arr(j, i)) > 0 Then
                    r = r + 1
                    For x = 0 To UBound(crr)
                        brr(r, x + 1) = arr(j, crr(x))
                    Next x
                    brr(r, 4) = arr(w, i)
                    brr(r, 9) = arr(j, i)
                End If
            Next i
        Else
            w = j
        End If
    Next j
    [a1].Resize(r, UBound(brr, 2)) = brr
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。。

zpy2

Create table 款式代码来源明细表2 as Select [款式],[代码],[描述],[L/长],[D/深],[H/高],[色号],[CAT.1],[CAT.3],[CAT.4],[SPECIAL],[LUSSO] from 款式代码来源明细表 where 款式!='款式'


SELECT [款式],[代码],[描述],[L/长],[D/深],[H/高],[色号],'CAT.1' AS 属性,[CAT.1] AS [数量] FROM 款式代码来源明细表2 WHERE [CAT.1] NOT LIKE '' AND [CAT.1] NOT LIKE '0' UNION SELECT [款式],[代码],[描述],[L/长],[D/深],[H/高],[色号],'CAT.3' AS 属性,[CAT.3] AS [数量] FROM 款式代码来源明细表2 WHERE [CAT.3] NOT LIKE '' AND [CAT.3] NOT LIKE '0' UNION SELECT [款式],[代码],[描述],[L/长],[D/深],[H/高],[色号],'CAT.4' AS 属性,[CAT.4] AS [数量] FROM 款式代码来源明细表2 WHERE [CAT.4] NOT LIKE '' AND [CAT.4] NOT LIKE '0' UNION SELECT [款式],[代码],[描述],[L/长],[D/深],[H/高],[色号],'SPECIAL' AS 属性,[SPECIAL] AS [数量] FROM 款式代码来源明细表2 WHERE [SPECIAL] NOT LIKE '' AND [SPECIAL] NOT LIKE '0' UNION SELECT [款式],[代码],[描述],[L/长],[D/深],[H/高],[色号],'LUSSO' AS 属性,[LUSSO] AS [数量] FROM 款式代码来源明细表2 WHERE [LUSSO] NOT LIKE '' AND [LUSSO] NOT LIKE '0';

A1233515

数组+字典

A1233515

附件供参考

f8b1987

通用操作见演示

工具.zip (225.41 KB, 下载次数: 5)

2021-5-17 08:51 上传

点击文件名下载附件

玥儿妈妈

f8b1987 发表于 2021-5-17 08:51
通用操作见演示

真棒!非常感谢

玥儿妈妈

A1233515 发表于 2021-5-17 08:25
附件供参考

真棒!非常感谢！！