EXcel如何将多行多列成对数据转换为多行两列成对数据

宏吧

sub a()
    dim brr()
    arr=[a1].currentregion
    redim brr(1 to ubound(arr,1)*ubound(arr,2)/2 , 1 to 2)
    n=1,m=1
    for i=1 to ubound(arr,1)
        for j=1 to ubound(arr,2)
            if arr(i,j)<>"" then
                brr(n,m)=arr(i,j)
                if m=2 then
                    m=1 : n=n+1
                else
                    m=2
                end if
            end if
        next
    next
    worksheets.add
    worksheets(worksheets.count).[a1].resize(n,2)=brr
end sub

Excel|如何把多行多列的数据转化成多行两列的流水格式？ - Powered by Discuz! http://www.exceltip.net/thread-12909-1-1.html
上面是使用VBA方法做的，有代码，希望帮到你！成功，请采纳！