源数据转置程序编写（急求）

复制内容到剪贴板

代码:

Dim arr, brr(), s1&, s2&, i&, x
x = 203
arr = Range("a1").CurrentRegion
ReDim brr(1 To UBound(arr) / x, 1 To x)
For i = 1 To UBound(arr) Step x
    s = s + 1: s2 = 0
    For j = i To i + 202
        s2 = s2 + 1
        brr(s, s2) = arr(j, 1)
    Next j
Next i
Range("d1").Resize(s, UBound(brr, 2)) = brr