关于VBA代码的简化问题

周爽

请问各位师傅，下面这段代码如何简化呢？试了各种办法，还是无法完成，谢谢各位
Sub TvInPut(ByVal TV As TreeView, arr)
'从数组读取数据写入到目录树
    Dim i&, parKey$, k
    Dim nodex As Node
    Set TV.ImageList = Nothing
    TV.Nodes.Clear
    For i = 1 To UBound(arr)
        TvInPutIterate TV, arr(i, 1), arr(i, 2) 'arr(i, 1)所有文件名称   arr(i, 2)所有文件名称中单元格最大的数字
    Next
    TV.Nodes(1).EnsureVisible
    On Error Resume Next
    Worksheets("sheet2").Range("A1:A2000").ClearContents
    '将目录树中的数据复制到工作表中,计算年度完成产值
    Sheets("sheet2").Range("a1") = TV.Nodes(1)
    Sheets("sheet2").Range("a2") = TV.Nodes(2)
    Sheets("sheet2").Range("a3") = TV.Nodes(3)
    Sheets("sheet2").Range("a4") = TV.Nodes(4)
    Sheets("sheet2").Range("a5") = TV.Nodes(5)
    Sheets("sheet2").Range("a6") = TV.Nodes(6)
    Sheets("sheet2").Range("a7") = TV.Nodes(7)
    Sheets("sheet2").Range("a8") = TV.Nodes(8)
    Sheets("sheet2").Range("a9") = TV.Nodes(9)
    Sheets("sheet2").Range("a10") = TV.Nodes(10)
    Sheets("sheet2").Range("a11") = TV.Nodes(11)
    Sheets("sheet2").Range("a12") = TV.Nodes(12)
    Sheets("sheet2").Range("a13") = TV.Nodes(13)
    Sheets("sheet2").Range("a14") = TV.Nodes(14)
    Sheets("sheet2").Range("a15") = TV.Nodes(15)
    Sheets("sheet2").Range("a16") = TV.Nodes(16)
    Sheets("sheet2").Range("a17") = TV.Nodes(17)
    Sheets("sheet2").Range("a18") = TV.Nodes(18)
    Sheets("sheet2").Range("a19") = TV.Nodes(19)
    Sheets("sheet2").Range("a20") = TV.Nodes(20)
    Sheets("sheet2").Range("a21") = TV.Nodes(21)
    Sheets("sheet2").Range("a22") = TV.Nodes(22)
    Sheets("sheet2").Range("a23") = TV.Nodes(23)
    Sheets("sheet2").Range("a24") = TV.Nodes(24)
    Sheets("sheet2").Range("a25") = TV.Nodes(25)
    Sheets("sheet2").Range("a26") = TV.Nodes(26)
    Sheets("sheet2").Range("a27") = TV.Nodes(27)
    Sheets("sheet2").Range("a28") = TV.Nodes(28)
    Sheets("sheet2").Range("a29") = TV.Nodes(29)
    Sheets("sheet2").Range("a30") = TV.Nodes(30)
    Sheets("sheet2").Range("a31") = TV.Nodes(31)
    Sheets("sheet2").Range("a32") = TV.Nodes(32)
    Sheets("sheet2").Range("a33") = TV.Nodes(33)
    Sheets("sheet2").Range("a34") = TV.Nodes(34)
    Sheets("sheet2").Range("a35") = TV.Nodes(35)

End Sub

YZC51

Sub TvInPut(ByVal TV As TreeView, arr)
'从数组读取数据写入到目录树
    Dim i&, parKey$, k
    Dim nodex As Node
    Set TV.ImageList = Nothing
    TV.Nodes.Clear
    For i = 1 To UBound(arr)
        TvInPutIterate TV, arr(i, 1), arr(i, 2) 'arr(i, 1)所有文件名称   arr(i, 2)所有文件名称中单元格最大的数字
    Next
    TV.Nodes(1).EnsureVisible
    On Error Resume Next
    Worksheets("sheet2").Range("A1:A2000").ClearContents
    '将目录树中的数据复制到工作表中,计算年度完成产值
for i =1 to 35
    Sheets("sheet2").Range("a" & i) = TV.Nodes(i)
next

End Sub

周爽

YZC51 发表于 2020-2-6 19:13
Sub TvInPut(ByVal TV As TreeView, arr)
'从数组读取数据写入到目录树
    Dim i&, parKey$, k

非常感谢您修改的代码，是这样的

YZC51

周爽 发表于 2020-2-6 19:32
非常感谢您修改的代码，是这样的

不客气！能用就好！