一列变两列

shufeabb · 发表于 2024-4-23 16:27

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

swl4561255 · 发表于 2024-4-23 18:42

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

复制代码

cnmlgb9998 · 发表于 2024-4-23 19:16

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

明天会更好zj · 发表于 2024-5-3 18:40

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

sm629 · 发表于 2024-5-6 10:04

试试：

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

复制代码

wdx223 · 发表于 2024-5-6 16:35

jh_richey · 发表于 2024-5-7 15:37

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

简洁明了

pxy0409 · 发表于 2024-5-8 16:58

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

hbzql · 发表于 2024-5-10 15:55

let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
分组 = Table.Group(源,"Component",{"Source",each [Source]}),
拆分 = Table.SplitColumn(分组,"Source",each _)
in
拆分

		自动登录	找回密码
密码			免费注册

[求助] 一列变两列