数据整理-感谢大家，已解决。

879851984

请大神们帮帮忙，感激不尽。

蓝桥玄霜

求助的例子：

879851984

蓝桥玄霜 发表于 2024-6-6 16:35
求助的例子：

感谢版主，完美解决

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, i&, j&, dic As Object, strJoin$
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Sheets(1).[A1].CurrentRegion.Value
    For i = 1 To UBound(ar)
        For j = 3 To UBound(ar, 2)
            If Len(ar(i, j)) Then
                strJoin = ar(i, 2) & ar(i, j)
                dic(strJoin) = 1
            End If
        Next j
    Next i
    With Sheets(2)
        ar = .[A1].CurrentRegion.Value
        For i = 2 To UBound(ar)
            For j = 3 To UBound(ar, 2)
                strJoin = ar(i, 2) & ar(1, j)
                ar(i, j) = dic(strJoin)
            Next j
        Next i
        .[A1].CurrentRegion.Value = ar
        .Activate
    End With
   
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。

LIUZHU

参与下，效果展示

LIUZHU

JSA代码，供参考

1. function 整理(){
   
2.         let arr=Sheets.Item("Sheet1").Range("a1").CurrentRegion.Value2;
   
3.         let res=arr.reduce((res,x,i)=>{
   
4.                 let temp=res[i+1]=[x[0],x[1]];
   
5.                 x.forEach((y,j)=>{
   
6.                         if (j<2 || y==null) return;
   
7.                         if (!res[0].includes(y)) res[0].push(y);
   
8.                         temp[res[0].indexOf(y)]=1;
   
9.                 });
   
10.                 return res;
    
11.         },[["店铺名称","商品代码"]]);
    
12.         Range("a1").Resize(res.length,res[0].length).Value2=res;
    
13. }

复制代码

LIUZHU

附件，请审核，WPS打开测试，JS宏

wang-way

LIUZHU 发表于 2024-6-6 18:19
附件，请审核，WPS打开测试，JS宏

楼主的原始数据少了同一个尺码 2个及以上的情况

1. function 整理(){
   
2.         let arr=Sheets.Item("Sheet1").Range("a1").CurrentRegion.Value2;
   
3.         let res=arr.reduce((res,x,i)=>{
   
4.                 let temp=res[i+1]=[x[0],x[1]];
   
5.                 x.forEach((y,j)=>{
   
6.                         if (j<2 || y==null) return;
   
7.                         k=y.toString().replace(/\D\d+/i,'');
   
8.                         if (!res[0].includes(k)) res[0].push(k);
   
9.                         temp[res[0].indexOf(k)]=y.toString().match(/\D(\d+)/i)==null?1:Number(y.toString().match(/\D(\d+)/i)[1]);
   
10.                 });
    
11.                 return res;
    
12.         },[["店铺名称","商品代码"]]);
    
13.         Sheets.Item("结果").Range("a1").Resize(res.length,res[0].length).Value2=res;
    
14. }

复制代码

cnmlgb9998

借楼练一下 PQ 。。。。。。。。。


是这个效果？？？？？