excel表格怎样设置下拉选项多选

单元格中设置多选下拉框是可以做到的
楼主没有举例说明具体需求，下面以选择多个姓名为例，步骤如下：
先在【清单】表中列举一个姓名列表


在【多选下拉菜单】表中设置多选下拉框，按Alt+F11键进入VBE编辑器，将如下两段代码粘贴到【多选下拉菜单】这个表的右侧代码区
Private Sub ListBox1_KeyDown(ByVal KeyCode As ***.returninteger, ByVal Shift As I画攻乎nteger)
    If KeyCode = 13 Then
    If ***.listindex = -1 Then Exit Sub
    Dim i&, str$
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
               稿尺闷 str = str & ";" & .List(i)
            End If
        Next
        .***.优初offset(, -1).Value = Mid(str, 2)
        .Visible = False
    End Wi感氢包迅参当鲁例打由宁th
    End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ***.count > 1 Then Exit Sub
   键弯 If ***.row > 2 And ***.column = 2 Then
        Dim arr
        arr = Sheets("清单").Cells(2, 1).Resize(Sheets("清单").Cells(***.count, 1).End(xlUp).Row - 1)
 困棚       With ListBox1
            .MultiSelect = 1
            .ListStyle = 1
            .List = a着南齐克素区就纸写rr
            .Top = ***.top
            .Left = ***.left + ***.width
            .Height = ***.height * 15
            .Width = 90
            .Visible = True
        End With
    Else
        ***.clear
        ***.visible = False
    End If
End Sub

最终效果如图：

注意：档案要保存为启用宏的工作簿

1.在excel表格中先插入一个工作表
2.在新工悄旁作表中将你需要的所有型扮运嫌号



3.在需要录入的表格中，选中单元格
4.使用数据-数据验证，在允许厅块模手中选择序列，单来自点来源，选择型号以录的型号所有单元格。

单元格中设置多选下拉框是可以做到的
楼主没有举例说明具体需求，下面以选择多个姓名为例，步骤如下：
先在【清单】表中列举一个姓名列表


在【多选下拉菜单】表中设置多选下拉框，按Alt+F11键进入VBE编辑器，将如下两段代码粘贴到【多选下拉菜单】这个表的右侧代码区
Private Sub ListBox1_KeyDown(ByVal KeyCode As ***.returninteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
    If ***.listindex = -1 Then Exit Sub
    Dim i&, str$
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
               稿尺闷 str = str & ";" & .List(i)
            End If
        Next
        .***.offset(, -1).Value = Mid(str, 2)
        .Visible = False
    End With
    End If
End Sub


Private Sub Worksheet_S阶手气新也记石electionChange(ByVal Target As Range)
    If ***.count > 1 Then Exit Sub
   键弯 If ***.row > 2 And ***.column = 2 Then
        Dim arr
        arr = Sheets("清单").Cells(2, 1).Resize(Sheets("清单").Cells(***.count, 1).End(xlUp).Row - 1)
 困棚       With ListBox1
            .MultiSelect = 1
            .ListStyle = 1
            .List = arr
            .Top = ***.top
            .Left = ***.left + ***.width
            .Height = ***.height * 15
            .Width = 90
            .Visible = True
        End With
    Else
        ***.clear
        ***.visible = False
    End If
End Sub

最终效果如图：

注意：档案要保存为启用宏的工作簿