Question

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

列如:
1 5 3 8
4 6 7 5 6 7
变换为：
1 5
3 8
4 6
7 5
6 7
数据量较大，上仅为举例说明

Answer 1

宏吧

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

追问

请教，提示：无法运行，语发错误。

追答

第5行
n=1,m=1
改为
n=1:m=1

追问

还是不对，运行了生成一张空白工作表，数据未转换。可否QQ指导下，谢谢!

追答

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(after:=Worksheets(Worksheets.Count)).Name = "aaa"
    Worksheets("aaa").[a1].Resize(n, 2) = brr
    '不想生成表的话，把上面两行删除，把下面的代码前的单引号删了。
    'cells(1,activesheet.usedrange.columns.count+1).resiez(n,2)=brr
End Sub

奇怪，指定工作表出错了，新建一个叫aaa的表，然后新数据会生成在里面。

Answer 2

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

追问

这个看过，不是我想要的格式。