vba 数组 resize

发布网友发布时间：2022-04-26 23:28

共1个回答

热心网友时间：2022-06-21 10:23

Sub LKJLK()
    a = "王|10|李|12|吴|13|叶|15|张|17|黄|26|陈|33"
    arr = Split(a, "|")
    For i = 0 To UBound(arr)
        x = Fix(i / 4) + 2
        y = (i + 1) Mod 4
        If y = 0 Then y = 4
        Cells(x, y) = arr(i)
    Next
End Sub

一维没法转成*，RESIZE是用不了，只能用循环

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com