多列转双列

limonet

还有个弱代码：逆透视
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    筛选列 = Table.RemoveColumns(源,List.Select(Table.ColumnNames(源), each List.RemoveNulls(Table.Column(源,_))={})),
    提升的标题 = Table.PromoteHeaders(筛选列, [PromoteAllScalars=true]),
    逆透视的其他列 = Table.UnpivotOtherColumns(提升的标题, {}, "属性", "值"),
    排序的行 = Table.Sort(逆透视的其他列,{{"属性", Order.Ascending}})
in
    排序的行

zhangcheng6688

借楼学习一下数组
Sub test()
lastr = Cells(Rows.Count, "o").End(xlUp).Row
arr = Range("l2:o" & lastr)
ReDim brr(1 To 10000, 1 To 2)
For i = 1 To UBound(arr, 2)
   If arr(1, i) = "" Then GoTo x
   For j = 2 To UBound(arr)
      If arr(j, i) <> "" Then
         m = m + 1
         brr(m, 1) = arr(1, i)
         brr(m, 2) = arr(j, i)
      End If
   Next
x:
Next
If m > 0 Then
   [Q2].Resize(m, 2) = brr
End If
End Sub

tcdatongye

练习下wps数组：
function aa(){
        var ar=Range("a2:d5")();
        var br=ar[0].reduce((p,col,j)=>{
                if(col){for(let x of ar.slice(1)){
                        x[j] && p.push([col,x[j]])}
                }
                return p},[])
Range("a10").Resize(br.length,2).Value2=br
}

LIUZHU

参与下