我想实现这样的效果，不知道咋描述，有大佬可以指点吗

2108789160 · 发表于 2024-4-5 12:21

本帖最后由 2108789160 于 2024-4-5 12:31 编辑

我想实现这样的效果，有大佬可以指点吗

test.zip (7.16 KB, 下载次数: 16)

wdx223 · 发表于 2024-4-5 12:42

let
项目 = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
国籍 = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
Custom1 = #table({"项目","x","y"},List.TransformMany(Table.ToRows(项目),each Text.Split(_{1}," "),(x,y)=>{x{0},y,国籍{[人员=y]}[国籍]})),
Custom2 = Table.Pivot(Custom1,List.Distinct(Custom1[y]),"y","x",Text.Combine)
in
Custom2

复制代码

wdx223 · 发表于 2024-4-5 12:43

3190496160 · 发表于 2024-4-5 12:59

Sub 整理()
Dim ar As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
With Sheets("国籍")
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "国籍工作表为空！": End
ar = .Range("a1:b" & r)
End With
For i = 2 To UBound(ar)
If ar(i, 1) <> "" Then
      d(ar(i, 1)) = i
   dc(ar(i, 2)) = ""
End If
Next i
sl = dc.Count
dc.RemoveAll
With Sheets("项目")
rs = .Cells(Rows.Count, 1).End(xlUp).Row
If rs < 2 Then MsgBox "项目工作表为空！": End
br = .Range("a1:b" & r)

ReDim arr(1 To UBound(br), 1 To sl + 1)
arr(1, 1) = "项目"
y = 1
n = 1
For s = 2 To UBound(br)
      If br(s, 1) <> "" Then
         n = n + 1
         arr(n, 1) = br(s, 1)
         rr = Split(br(s, 2), " ")
         For i = 0 To UBound(rr)
            zd = rr(i)
            If zd <> "" Then
                  xh = d(Trim(zd))
                  If xh <> "" Then
                     gj = ar(xh, 2)
                     lh = dc(gj)
                     If lh = "" Then
                        y = y + 1
                        dc(gj) = y
                        lh = y
                        arr(1, y) = gj
                     End If
                     arr(n, lh) = zd
                  End If
            End If
         Next i
      End If
Next s
.Columns("i:l") = Empty
.[i1].Resize(n, y) = arr
End With

End Sub

3190496160 · 发表于 2024-4-5 13:00

test.rar (18.33 KB, 下载次数: 2)

2108789160 · 发表于 2024-4-5 13:01

wdx223 发表于 2024-4-5 12:43

谢谢大佬，再咨询下大佬，

这个是怎么弄出来的

2108789160 · 发表于 2024-4-5 13:17

3190496160 发表于 2024-4-5 13:00

谢谢大佬，我想用PQ处理哈，VBA还没学

wdx223 · 发表于 2024-4-5 13:50

2108789160 发表于 2024-4-5 13:17
谢谢大佬，我想用PQ处理哈，VBA还没学

视图，列质量

liyh67 · 发表于 2024-4-5 15:30

不会M，只用菜单操作：
QQ拼音截图20240405152954.png

let
源 = Excel.CurrentWorkbook(){[Name="表2"]}[Content],
按分隔符拆分列 = Table.SplitColumn(源, "人员", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"人员.1", "人员.2", "人员.3"}),
逆透视的其他列 = Table.UnpivotOtherColumns(按分隔符拆分列, {"项目"}, "属性", "值"),
合并的查询 = Table.NestedJoin(逆透视的其他列, {"值"}, 表1, {"人员"}, "表1", JoinKind.LeftOuter),
#"展开的“表1”" = Table.ExpandTableColumn(合并的查询, "表1", {"国籍"}, {"国籍"}),
删除的列 = Table.RemoveColumns(#"展开的“表1”",{"属性"}),
已透视列 = Table.Pivot(删除的列, List.Distinct(删除的列[国籍]), "国籍", "值")
in
已透视列

复制代码

cnmlgb9998 · 发表于 2024-4-5 15:37

整理源表，再合并查询！！！！！！！！！！！！！！！！！！！

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

我想实现这样的效果，不知道咋描述，有大佬可以指点吗

评分

评分