vba listbox复制表内容

你可以使用以下的 VBA 代码来将表格的内容复制到列表框中：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") '更改为你的工作表名称
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '获取最后一行的行号
    For i = 2 To lastRow '从第二行开始循环，第一行为表头
        ListBox1.AddItem ws.Cells(i, 1).Value '添加第一列的数据到列表框
    Next i
End Sub

在这个示例中，我们将表格中第一列的数据添加到名为“ListBox1”的列表框中。你需要将代码中的“Sheet1”更改为你的工作表名称，以及将“ListBox1”更改为你的列表框名称。

此外，你还可以使用以下代码将选定单元格范围的内容复制到列表框中：

Private Sub UserForm_Initialize()
    For Each cell In Selection
        ListBox1.AddItem cell.Value '将选定单元格范围的数据添加到列表框中
    Next cell
End Sub

在此示例中，我们假设你已经选择了要复制到列表框中的单元格范围。你需要将代码中的“ListBox1”更改为你的列表框名称。