如何使用C#在Excel中创建多选下拉选项

Excel原生的单元格数据验证功能仅支持单选，要实现多选效果必须通过VBA事件配合或嵌入表单控件实现，以下是两种主流可落地的实现方案：

方案1：VBA事件+普通下拉（兼容性最优） #

该方案原理是先给目标单元格创建你已经熟悉的普通下拉，再给工作表写入Change事件脚本，当用户选择下拉值时自动追加到单元格现有内容中，支持自定义分隔符、去重等规则。
以下是常用开源库EPPlus的实现代码示例：

using OfficeOpenXml;
using System.IO;

// 若使用EPPlus 5+ 非商业场景需设置上下文
ExcelPackage.LicenseContext = LicenseContext.NonCommercial;

using (var package = new ExcelPackage(new FileInfo("你的目标文件.xlsx")))
{
    var workSheet = package.Workbook.Worksheets.FirstOrDefault() ?? package.Workbook.Worksheets.Add("Sheet1");
    
    // 给A列1-10行添加普通下拉，这部分你可复用已有实现
    var dropDownValidation = workSheet.DataValidations.AddListValidation("A1:A10");
    dropDownValidation.Formula.Values.Add("选项1");
    dropDownValidation.Formula.Values.Add("选项2");
    dropDownValidation.Formula.Values.Add("选项3");
    // 关闭错误提示，避免追加值时触发格式校验报错
    dropDownValidation.ShowErrorMessage = false;

    // 核心：添加工作表Change事件VBA代码实现多选追加
    string vbaScript = @"
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oldValue As String
    Dim newValue As String
    ' 仅处理你设置了下拉的单元格范围，此处示例为A列1-10行
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Application.EnableEvents = False
        newValue = Target.Value
        Application.Undo
        oldValue = Target.Value
        ' 新值为空时清空单元格
        If newValue = "" Then
            Target.Value = ""
        ' 原有值为空时直接赋值新值
        ElseIf oldValue = "" Then
            Target.Value = newValue
        ' 已有值时追加，自动去重
        Else
            If InStr(oldValue, newValue) = 0 Then
                Target.Value = oldValue & "," & newValue
            Else
                Target.Value = oldValue
            End If
        End If
        Application.EnableEvents = True
    End If
End Sub
    ";
    // 给当前工作表注入VBA代码
    var vbaModule = package.Workbook.VbaProject.Modules.AddModule(workSheet.Name);
    vbaModule.Code = vbaScript;
    // 必须保存为xlsm后缀的启用宏文件，否则VBA不会生效
    package.SaveAs(new FileInfo("多选下拉示例.xlsm"));
}

注意事项：

• 用户打开生成的文件时需要启用宏，多选功能才能正常运行
• 可自行修改VBA代码中的范围、分隔符（默认逗号）、是否允许重复等规则

方案2：嵌入ListBox控件（无需依赖下拉功能） #

如果希望自定义交互样式，可以直接在工作表中嵌入多选列表框控件，适合仅在桌面版Excel中使用的场景，以下是Microsoft.Office.Interop.Excel的实现示例：

using Microsoft.Office.Interop.Excel;
using System.Runtime.InteropServices;

Application excelApp = new Application();
Workbook workbook = excelApp.Workbooks.Add();
Worksheet workSheet = workbook.ActiveSheet;

// 插入多选列表框控件，可自行调整位置和大小
var listBox = workSheet.OLEObjects.Add(ClassType: "Forms.ListBox.1", 
    Left: 10, Top: 10, Width: 120, Height: 120);
dynamic listBoxObj = listBox.Object;
// 设置多选模式：0=单选 1=普通多选 2=按住Ctrl/Shift的扩展多选
listBoxObj.MultiSelect = 1;
// 添加选项
listBoxObj.AddItem("选项1");
listBoxObj.AddItem("选项2");
listBoxObj.AddItem("选项3");

// 可选：添加确认按钮，把选中值写入A1单元格
var confirmBtn = workSheet.OLEObjects.Add(ClassType: "Forms.CommandButton.1",
    Left: 140, Top: 10, Width: 80, Height: 30);
dynamic btnObj = confirmBtn.Object;
btnObj.Caption = "确认选择";

// 注入按钮点击事件的VBA代码
string btnVba = @"
Private Sub CommandButton1_Click()
    Dim res As String
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            res = IIf(res = """", ListBox1.List(i), res & "","" & ListBox1.List(i))
        End If
    Next
    Range(""A1"").Value = res
End Sub
";
var vbaModule = workbook.VBProject.VBComponents.Add(Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdModule);
vbaModule.CodeModule.AddFromString(btnVba);

workbook.SaveAs("控件式多选下拉.xlsm");
workbook.Close();
Marshal.ReleaseComObject(excelApp);

注意事项：

• 该方案生成的控件在WPS、在线版Excel中可能无法正常显示和交互

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