极度不规范数据求和汇总

图不安兔

各位老师：早上好！俺遇到了一个“极度不规范数据却要求和汇总出报表的烧脑问题”（详见附件），初来乍到，恳请论坛的老师出手帮助，多谢！！！

图不安兔

劳烦论坛的老师帮俺整整，谢谢！！

图不安兔

有哪位老师出手相助吗？？？

砂海

极度不规范的数据 ,
别人怎么搞 ?
说着说着 , 又出新情况 ?

砂海

整理好数据 才是 正道

cui26896

建议楼主在数据源表加上品名和功率两列，并且给出数据，问题就明了得多了！

AmoKat

D4:K21 區域組數公式
=SUMIFS(数据源!$F:$F,数据源!$B:$B,"*"&B4:B21&"*",数据源!$B:$B,"*"&D3:I3&"*",数据源!$B:$B,"*"&LOOKUP(COLUMN(D:I),COLUMN(D:I)/(D2:I2<>""),D2:I2)&"*",数据源!$B:$B,"*"&SUBSTITUTE(LOOKUP(ROW(4:21),ROW(4:21)/(A4:A21<>""),A4:A21),CHAR(10),)&"*",数据源!C:C,C4:C21&"个/件")

先選D4:K21 區域
編輯列貼上公式
三鍵輸入公式

公式容有缺陷，高帥與新高帥、金鑽與新金鑽，容易重複辨識。
目前 火焱、拉那提、下里巴 與 高帥、新高帥無相同混用時，公式OK。       

图不安兔

AmoKat 发表于 2021-11-12 00:17
D4:K21 區域組數公式
=SUMIFS(数据源!$F:$F,数据源!$B:$B,"*"&B4:B21&"*",数据源!$B:$B,"*"&D3:I3&"*",数 ...

谢谢您！这样会很卡的。我要的是用VBA代码解决问题。

图不安兔

感谢“砂海”和“cui26896”两位老师的关注！不知可否先将无关字符先替换掉后装入数组，再……例如：
        If InStr(arr(i, 2), "LED") Then
            arr(i, 2) = Replace(arr(i, 2), "LED", " ")
        End If
        If InStr(arr(i, 2), "照明泡") Then
            arr(i, 2) = Replace(arr(i, 2), "照明泡", " ")
        End If
        arr(i, 2) = Application.Trim(arr(i, 2))
好在“品名”、“功率”、“品牌”不多及灯头规格只有“E27”和"B22”两种。

AmoKat

下里巴 浴室照明泡7W 8cm B22
下里巴 浴室照明泡7W 8cm E27
下里巴 浴室照明泡E27 7W 8cm

像這種缺少品牌如何歸類?
看到了，歸在 浴室