求助代码求助代码

1吧吧

求助代码求助代码

醉眼看尘世

你这专业求助哇？人家帮你写了代码，你从来也不说个谢字。好意思一直来求？

醉眼看尘世

不好意思，说错人了

杨建营

用for循环就可以，请楼主参考。

limonet

关键字：
1、公式tocol
2、数组

limonet

Sub limonet()
    Dim Arr As Variant, i%, j%, k%, Brr(1 To 999, 1 To 1) As String
    Arr = Range("B1").CurrentRegion
    For i = 1 To UBound(Arr, 2)
        For j = 1 To UBound(Arr)
            k = k + 1
            Brr(k, 1) = Arr(j, i)
        Next j
    Next i
    Range("F1").Resize(k) = Brr
End Sub

小凡、、、

醉眼看尘世 发表于 2024-8-8 17:51
不好意思，说错人了

哈哈哈哈  笑死

1吧吧

感谢老师们的解答