以下是一个示例代码，可以遍历 ListBox 控件的项，并将每个项的值输入到工作表数组中：

Sub TraverseListBox()
    Dim listBox As ListBox
    Dim ws As Worksheet
    Dim arrData() As Variant
    Dim i As Long
    
    ' 设置 ListBox 对象
    Set listBox = Sheet1.ListBox1
    
    ' 设置工作表对象
    Set ws = Sheet2
    
    ' 清空工作表数组
    ws.Cells.Clear
    
    ' 调整数组大小以适应 ListBox 的项数
    ReDim arrData(1 To listBox.ListCount, 1 To 1)
    
    ' 将 ListBox 的项值存储到数组中
    For i = 1 To listBox.ListCount
        arrData(i, 1) = listBox.List(i - 1)
    Next i
    
    ' 将数组值输入到工作表
    ws.Range("A1").Resize(listBox.ListCount, 1).Value = arrData
End Sub

请将上述代码放置在 VBA 的模块中，并确保 ListBox 和工作表对象的名称与代码中的实际名称相匹配。更具体地说：

• Sheet1 是包含 ListBox 控件的工作表对象，可以根据实际情况更改为您的工作表对象。
• ListBox1 是要遍历的 ListBox 控件的名称，可以根据实际情况更改为您的 ListBox 控件的名称。
• Sheet2 是要将值输入的工作表对象，可以根据实际情况更改为您的工作表对象。

运行 TraverseListBox 子过程后，将会将 ListBox 的项值输入到工作表的 A 列中。