excel 多行多列数据 转化为两列数据 具体如图 (图左到图右)

2024年11月23日 03:43
有1个网友回答
网友(1):

用VBA吧:

Sub Test()
    rn = 1
    For r = 1 To Sheets("sheet2").Range("A65536").End(xlUp).Row
        c = 1
        Do While Sheets("sheet2").Cells(r, c) <> ""
            Sheets("sheet1").Cells(rn, 1) = Sheets("sheet2").Cells(r, c)
            Sheets("sheet1").Cells(rn, 2) = Sheets("sheet2").Cells(r, c + 1)
            c = c + 2
            rn = rn + 1
        Loop
    Next
End Sub