一段代码，显式确定工作表列表框选项状态

'获取多选列表框中的选定项，并将其列在工作表中原始项列表的右侧列
Sub getSelections()
   Dim V As Variant
   Dim V2 As Variant
   Dim i As Long
   Dim n As Long
   Dim lb As Long
   Dim adjust As Long
   With ActiveSheet.ListBoxes(Application.Caller)
        '获取表示选择状态的一维数组, TRUE/FALSE
        V = .Selected
        n = UBound(V)
        ReDim V2(n, 1)
        '除非设置了OptionBase 1，否则下限为0
        lb = LBound(V2, 2)
        '如果是零，那么需要小心，因为V中的列表的下限是1
        If lb = 0 Then adjust = 1
        For i = lb To n - adjust
            V2(i, lb) = V(i + adjust)
        Next i
        '粘贴数组
        Range(.ListFillRange).Cells(1,1).Offset(0, 1).Resize(n, 1) = V2
   End With
End Sub