表格格式转换

landercandy

请为如何能从左边这个表转换成右边这个表的效果呢？具体可查看附件

土匪远

let     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],     分组 = Table.Group(源,"省",{"a",each [授权医院]}),     转表 = Table.FromColumns(分组[a],分组[省]) in     转表

土匪远

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    分组 = Table.Group(源,"省",{"a",each [授权医院]}),
    转表 = Table.FromColumns(分组[a],分组[省])
in
    转表

cnmlgb9998

这样？？？？？？？？？？？？？

acbczhhw

使用这个公式试试
=SORT(FILTER($A:$A,$B:$B=E$1),,-1)
输入公式后会显示溢出，删除下面单元格内容
向后拉

飞天篮球猪

仅供参考...

wdx223

飞天篮球猪 发表于 2024-10-24 12:14
仅供参考...

球哥的spl已入化境

zhangcheng6688

学习一下字典，写得不好
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 1000)
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 2)) Then
      c = c + 1
      brr(1, c) = arr(i, 2)
      brr(2, c) = arr(i, 1)
      d(arr(i, 2)) = c
      d1(arr(i, 2)) = 2
   Else
      d1(arr(i, 2)) = d1(arr(i, 2)) + 1
      brr(d1(arr(i, 2)), d(arr(i, 2))) = arr(i, 1)
   End If
Next
[e1].Resize(UBound(brr), d.Count) = brr
End Sub

landercandy

谢谢楼上二位的帮助

zhangcheng6688

cnmlgb9998 发表于 2024-10-24 11:30
这样？？？？？？？？？？？？？

帅，空得时候能否用vba字典写一个，我写得思路有点凌乱
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 1000)
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 2)) Then
      c = c + 1
      brr(1, c) = arr(i, 2)
      brr(2, c) = arr(i, 1)
      d(arr(i, 2)) = c
      d1(arr(i, 2)) = 2
   Else
      d1(arr(i, 2)) = d1(arr(i, 2)) + 1
      brr(d1(arr(i, 2)), d(arr(i, 2))) = arr(i, 1)
   End If
Next
[e1].Resize(UBound(brr), d.Count) = brr
End Sub