如何在Excel窗体中创建含多工作表唯一值的多选ListBox

方法1：利用Excel内置动态数组函数（适用于Excel 365/2021及以后版本） #

如果你的Excel版本支持动态数组函数，这是最简便的实现方式：

• 假设三个工作表分别为Sheet1、Sheet2、Sheet3，客户名称存储在各表的A列（A1为表头，数据从A2开始）
• 在任意空白工作表的单元格（比如Sheet4!A2）输入以下公式，自动生成跨表去重后的唯一客户列表：

  =UNIQUE(VSTACK(
      Sheet1!A2:INDEX(Sheet1!A:A,COUNTA(Sheet1!A:A)),
      Sheet2!A2:INDEX(Sheet2!A:A,COUNTA(Sheet2!A:A)),
      Sheet3!A2:INDEX(Sheet3!A:A,COUNTA(Sheet3!A:A))
  ))
  

  公式说明：
  • INDEX+COUNTA用于动态获取各表的实际数据范围，避免包含空单元格
  • VSTACK将三个表的客户列垂直拼接
  • UNIQUE自动去除所有重复值，生成唯一列表

之后可以通过VBA将这个动态溢出的范围绑定到窗体的ListBox，示例代码：

Private Sub UserForm_Initialize()
    ' 假设唯一值列表在Sheet4的A2开始的溢出区域
    Me.ListBox1.List = Sheet4.Range("A2#").Value
    ' 设置多选模式
    Me.ListBox1.MultiSelect = fmMultiSelectExtended
End Sub

方法2：VBA直接生成唯一值（兼容所有Excel版本） #

如果你的Excel版本不支持动态数组，或者希望直接在窗体初始化时生成列表，可借助VBA的Collection对象去重：

1. 打开VBA编辑器（Alt+F11），插入用户窗体，添加一个ListBox控件，在属性窗口将其MultiSelect设置为1 - fmMultiSelectMulti或2 - fmMultiSelectExtended
2. 双击窗体，在Initialize事件中添加以下代码：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim cell As Range
    Dim uniqueNames As New Collection
    Dim item As Variant
    
    ' 遍历目标工作表，可根据实际修改工作表名称数组
    For Each ws In ThisWorkbook.Worksheets(Array("Sheet1", "Sheet2", "Sheet3"))
        ' 遍历A列的非空数据行（从A2开始）
        For Each cell In ws.Range("A2", ws.Cells(ws.Rows.Count, "A").End(xlUp))
            If cell.Value <> "" Then
                ' 利用Collection的Key属性自动去重，重复值会触发错误，忽略即可
                On Error Resume Next
                uniqueNames.Add cell.Value, Key:=CStr(cell.Value)
                On Error GoTo 0
            End If
        Next cell
    Next ws
    
    ' 将去重后的名称填充到ListBox
    For Each item In uniqueNames
        Me.ListBox1.AddItem item
    Next item
End Sub

运行窗体后，ListBox就会显示所有跨表的唯一客户名称，且支持多选操作。

内容的提问来源于stack exchange，提问作者Shoti