一列变两列

shufeabb

如何把一列变成两列.7z (6.25 KB, 下载次数: 20)

2024-4-23 16:27 上传

点击文件名下载附件

swl4561255

1. Sub test()
   
2. arr = Range("A1").CurrentRegion
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For i = 2 To UBound(arr)
   
5.     If Not d.exists(arr(i, 1)) Then
   
6.         d(arr(i, 1)) = arr(i, 2)
   
7.     Else
   
8.         d(arr(i, 1)) = d(arr(i, 1)) & "-" & arr(i, 2)
   
9.     End If
   
10. Next
    
11. k = d.keys
    
12. t = d.items
    
13. [G1].Resize(1, 3) = Array("Component", "Source1", "Source2")
    
14. [G2].Resize(d.Count, 2) = Application.Transpose(Array(k, t))
    
15. [H2].Resize(d.Count, 1).TextToColumns other:=True, otherchar:="-"
    
16. Set d = Nothing
    
17. End Sub
    

复制代码

cnmlgb9998

简单。。。。。。。。。。。。。。。。。。

明天会更好zj

，点点鼠标，简单改下M函数就搞定

sm629

试试：

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     分组的行 = Table.Group(源, {"Component"}, {
   
4.     {"BIBOM", each Text.Combine(List.RemoveItems([Source],{"approved"}))},
   
5.     {"approved",each Text.Combine(List.RemoveItems([Source],{"BIBOM"}))}
   
6.     })
   
7. in
   
8.     分组的行

复制代码

wdx223

jh_richey

sm629 发表于 2024-5-6 10:04
试试：

简洁明了

pxy0409

如果是单纯的文本合并,5楼的做法最为简洁;
如果增加一列数量,增加上数量求和,如何解决?附件中提供了一种分步操作方法.