如何将列表打印到特定单元格(VBA)

Sub PrintListToCell()
    Dim myList As Variant
    Dim rng As Range
    Dim i As Integer
    
    ' 定义列表数据
    myList = Array("Item 1", "Item 2", "Item 3", "Item 4", "Item 5")
    
    ' 指定要打印到的单元格
    Set rng = Range("A1")
    
    ' 循环遍历列表并逐行打印到单元格
    For i = LBound(myList) To UBound(myList)
        rng.Offset(i, 0).Value = myList(i)
    Next i
End Sub