VBA Excel 用多列填充列表框

使用VBA Excel可以轻松地将多列数据填充到列表框中，这为数据显示和管理提供了便利。在本文中，我们将介绍如何使用VBA代码来实现这一功能，并提供一个案例代码来帮助您更好地理解。

vba
Private Sub UserForm_Initialize()
    Dim rng As Range
    Dim cell As Range
    
    '指定要填充到列表框的数据范围
    Set rng = Sheets("Sheet1").Range("A1:B10")
    
    '循环遍历数据范围中的每个单元格，并将其添加到列表框中
    For Each cell In rng
        ListBox1.AddItem cell.Value
    Next cell
End Sub

vba
Private Sub UserForm_Initialize()
    Dim rng As Range
    Dim cell As Range
    
    '指定要填充到列表框的数据范围
    Set rng = Sheets("Sheet1").Range("A1:B10")
    
    '循环遍历数据范围中的每个单元格，并将其添加到列表框中
    For Each cell In rng
        ListBox1.AddItem cell.Value
    Next cell
End Sub