求帮助

vba7879

用vba怎么做啊 ，哪位能写一下吗（另外问一下 鲜花 是什么啊？ 要用钱充值吗？）

liulang0808

楼主要解决什么问题？
建议结合附件内容模拟说明下
现在的两张图，看着就是数据拷贝。。。。

vba7879

liulang0808 发表于 2020-3-16 13:15
楼主要解决什么问题？
建议结合附件内容模拟说明下
现在的两张图，看着就是数据拷贝。。。。

就是多列的转成一列的

vba7879

太惨了吧  发了两次贴 都没人回我的  ，新人太苦了

笨鸟飞不高

Sub AwTest()
    Dim endRow%, i%, j%, k%, x%, n%, arr, brr(1 To 10000, 1 To 5)
    For k = 1 To [a1].End(2).Column / 5
        x = 1 + (k - 1) * 5
        endRow = Cells(Rows.Count, x).End(3).Row
        arr = Range(Cells(2, x), Cells(endRow, x + 4))
        For i = 1 To UBound(arr)
            n = n + 1
            For j = 1 To UBound(arr, 2)
                brr(n, j) = arr(i, j)
            Next
        Next
        Erase arr
    Next
    Sheet3.[a2].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

笨鸟飞不高

3月食堂.zip (27.67 KB, 下载次数: 6)

2020-3-16 13:59 上传

点击文件名下载附件

如果符合你的要求，请送朵花花！！