VBA数组转换transpose出错如何改正

laoau128

liulang0808 发表于 2018-11-17 21:40
另外就是直接使用拷贝转置看看
Sub 出错如何改()
Dim arr

用VBA数组实现查找返回一列结果

http://club.excelhome.net/thread-1446567-1-1.html


用VBA调用large函数匹配前6名并且填充颜色

http://club.excelhome.net/thread-1446569-1-1.html

lss001

Sub 非公式转置()
'在代码中应尽量避免使用内置函数！
    Dim arr, brr, i
    Range("a1:b1") = Array("abcdef", String(512, "vba"))
    arr = Range("a1:b1")
    ReDim brr(1 To Ubound(arr, 2), 0)
    For i = 1 To Ubound(arr, 2)
        brr(i, 0) = arr(1, i)
    Next
    Cells(6, 1).Resize(Ubound(brr),1)= brr
End Sub

zhangcheng6688

huang1314wei 发表于 2018-11-17 21:48
好久没有上论坛了，laoau128 兄又重出江湖了，恭喜，论坛有你更精彩
Application.Transpose 转置的字符串 ...

了解了，谢谢。。。。。。