Excel宏开发：如何将新建工作表命名为下拉框选中值

不需要用选择性粘贴，直接读取下拉框的选中值即可，分两种常见控件类型给出代码：

表单控件下拉框（Form Control） #

如果你的下拉框是表单控件，有两种获取值的方式：

Sub Button1_Click()
    Dim selectedName As String
    
    ' 方式1：下拉框已设置单元格链接（比如链接到Sheet1的A1单元格）
    selectedName = Sheets("Sheet1").Range("A1").Value
    
    ' 方式2：直接通过控件名称读取（替换"Drop Down 1"为你的控件实际名称）
    ' selectedName = Sheets("Sheet1").Shapes("Drop Down 1").ControlFormat.List( _
    '     Sheets("Sheet1").Shapes("Drop Down 1").ControlFormat.Value)
    
    ' 清除工作表名称禁用字符：/ \ ? * [ ]
    selectedName = Replace(Replace(Replace(Replace(Replace(selectedName, "/", ""), "\", ""), "?", ""), "*", ""), "[", "")
    selectedName = Replace(selectedName, "]", "")
    
    ' 检查是否存在同名工作表
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = selectedName Then
            MsgBox "该名称的工作表已存在！"
            Exit Sub
        End If
    Next ws
    
    ' 新建并命名工作表
    Dim newSheet As Worksheet
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSheet.Name = selectedName
End Sub

ActiveX控件组合框（ActiveX Control） #

如果是ActiveX类型的组合框，直接读取Value属性：

Sub Button1_Click()
    Dim selectedName As String
    
    ' 替换"Sheet1"和"ComboBox1"为你的工作表及控件名称
    selectedName = Sheets("Sheet1").ComboBox1.Value
    
    ' 清除工作表名称禁用字符
    selectedName = Replace(Replace(Replace(Replace(Replace(selectedName, "/", ""), "\", ""), "?", ""), "*", ""), "[", "")
    selectedName = Replace(selectedName, "]", "")
    
    ' 检查是否存在同名工作表
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = selectedName Then
            MsgBox "该名称的工作表已存在！"
            Exit Sub
        End If
    Next ws
    
    ' 新建工作表
    Dim newSheet As Worksheet
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSheet.Name = selectedName
End Sub

关键说明 #

• 工作表名称不能包含/ \ ? * [ ]这些字符，代码里的替换语句会自动清除这些禁用字符
• 重复名称检查可以避免运行时错误，根据需求可选择保留或移除

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