[已解决]EXCEL表格三列内容，合并成一列排列

小雨饰品

请教：EXCEL表格三列内容，如何合并成一列排列？如附件，谢谢啦

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-8-26 10:32

试试

跳转到最佳答案楼层

哥儿-

Sub test()
    Dim arr, brr, i%, j%, n%
    arr = [a3].CurrentRegion
    ReDim brr(1 To Application.CountA(arr) - 3, 1 To 1)
    For i = 2 To UBound(arr)
        For j = 1 To 3
            If arr(i, j) <> "" Then
                n = n + 1
                brr(n, 1) = arr(i, j)
            End If
        Next j
    Next
    [f4:f1000].Clear
    [f4].Resize(UBound(brr)) = brr
   
End Sub

哥儿-

试试

小雨饰品

哥儿- 发表于 2022-8-26 10:32
试试

谢谢你啦，完全达到效果