vba列表框的值怎么提取出来？

您可以使用以下代码来提取 VBA 列表框中的值：

Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
MsgBox ListBox1.List(i)
End If
Next i

这段代码将遍历列表框中的所有项，并显示被选中的项的值。请注意，您需要将“ListBox1”替换为您实际使用的列表框的名称。

相关问题

Excel用代码提取多列中的唯一值

Excel 中提取多列中的唯一值可以使用“高级筛选”功能。以下是具体步骤：

1. 将数据放在同一工作表中，并确保每列都有标题行。
2. 在任意单元格中，输入要提取唯一值的列标题，例如 A1、B1、C1。
3. 在数据区域选中整个表格，包括标题行。
4. 点击“数据”选项卡，然后选择“高级”。
5. 在“高级筛选”对话框中，选择“复制到其他位置”选项。
6. 在“列表范围”中输入整个表格的范围，包括标题行。
7. 在“条件区域”中输入标题行的范围，例如 A1:C1。
8. 确保选中“唯一记录”复选框，并在“复制到”框中输入唯一值的起始单元格，例如 F1。
9. 点击“确定”，即可在 F1 开始的单元格中提取多列中的唯一值。

如果你想使用 VBA 代码来提取多列中的唯一值，可以使用以下代码：

Sub ExtractUniqueValues()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim uniqueValues As Variant
    Dim i As Long, j As Long
    Dim dict As Object
    
    Set dict = CreateObject("Scripting.Dictionary") ' 创建一个字典对象
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 更改为你的工作表名称
    
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取最后一行
    
    For i = 2 To lastRow ' 从第二行开始循环
        ' 使用字典对象来存储唯一值
        If Not dict.exists(ws.Cells(i, 1).Value & "|" & ws.Cells(i, 2).Value & "|" & ws.Cells(i, 3).Value) Then
            dict.Add ws.Cells(i, 1).Value & "|" & ws.Cells(i, 2).Value & "|" & ws.Cells(i, 3).Value, ""
        End If
    Next i
    
    ' 将唯一值写入新的工作表中
    j = 1
    For Each uniqueValues In dict.keys
        ws.Cells(j, 6).Value = Split(uniqueValues, "|")(0)
        ws.Cells(j, 7).Value = Split(uniqueValues, "|")(1)
        ws.Cells(j, 8).Value = Split(uniqueValues, "|")(2)
        j = j + 1
    Next uniqueValues
    
End Sub

这将提取 A、B、C 列中的唯一值，并将它们写入新的工作表中的 D、E、F 列中。