求各位大神帮忙看看如何将多行转为2列？（实际行数非常多）

wendadada

求各位大神帮忙看看如何将多行转为2列？（实际行数非常多）

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1621552&mobile&_dsign=de31511a

3190496160

Sub 转置()
Dim ar As Variant
Dim arr()
With Sheet1
     rs = .Cells(Rows.Count, 4).End(xlUp).Row
     y = .Cells(1, Columns.Count).End(xlToLeft).Column
     ar = .Range(.Cells(1, 4), .Cells(rs, y))
     ReDim arr(1 To UBound(ar) * UBound(ar, 2), 1 To 2)
     For j = 1 To UBound(ar, 2) Step 2
        For i = 2 To UBound(ar)
            If Trim(ar(i, j)) <> "" Then
                n = n + 1
                arr(n, 1) = ar(i, j)
                arr(n, 2) = ar(i, j + 1)
            End If
        Next i
    Next j
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("a6:b" & r + 1) = Empty
    .[a6].Resize(n, 2) = arr
End With
MsgBox "ok!"
End Sub

3190496160

多行如何转为2列.rar (18.63 KB, 下载次数: 3)

2022-5-18 08:11 上传

点击文件名下载附件

wdx223

wdx223

新函数还是比较可以的

luzwales

屠彧

let     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],     转置表 = Table.Transpose(源),     自定义1 = Table.Combine(Table.Group(转置表,"Column1",{"转换",each Table.Combine(Table.Split(Table.Transpose(_),2))},0,(x,y)=>Number.From(y="部门"))[转换]) in     自定义1

屠彧

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    转置表 = Table.Transpose(源),
    自定义1 = Table.Combine(Table.Group(转置表,"Column1",{"转换",each Table.Combine(Table.Split(Table.Transpose(_),2))},0,(x,y)=>Number.From(y="部门"))[转换])
in
    自定义1

chenxuefu