Excel VBA -将选定的列表框项目移动到范围

Sub MoveSelectedItemsToListBox()
    Dim i As Long
    Dim rng As Range
    
    ' 获取选定的列表框对象
    Set lb = Sheet1.ListBox1
    
    ' 创建一个新的范围对象
    Set rng = Sheet1.Range("A1")
    
    ' 循环遍历选定的列表框项目
    For i = 0 To lb.ListCount - 1
        ' 检查当前项目是否被选中
        If lb.Selected(i) Then
            ' 将选中的项目的值复制到范围中
            rng.Value = lb.List(i)
            
            ' 将范围向下移动一行
            Set rng = rng.Offset(1, 0)
        End If
    Next i
End Sub