合并VBA宏：复制重命名工作表并清除指定单元格，移除新建时弹窗

以下是整合了「复制并重命名工作表」「清除新工作表指定单元格内容」「移除新工作表文本框」三个功能的完整VBA代码：

Public Sub CopySheetRenameClearAndRemoveTextBoxes()
    Dim newName As String
    Dim newWs As Worksheet
    
    ' 获取用户输入的新工作表名称
    newName = InputBox("Enter the name for the copied worksheet")
    
    ' 仅当用户输入有效名称时执行后续操作
    If newName <> "" Then
        ' 复制当前工作表到工作簿末尾
        ActiveSheet.Copy After:=Worksheets(Sheets.Count)
        ' 将新工作表赋值给变量，避免依赖ActiveSheet产生操作偏差
        Set newWs = ActiveSheet
        
        ' 尝试重命名新工作表（捕获名称重复等错误）
        On Error Resume Next
        newWs.Name = newName
        ' 重置错误捕获机制
        On Error GoTo 0
        
        ' 清除新工作表指定单元格内容
        newWs.Range("K2,J3,B18:B38,H18:H38,I18:I38,J18:J38,F44").Value = ""
        
        ' 删除新工作表中的所有文本框
        Dim shp As Shape
        For Each shp In newWs.Shapes
            If shp.Type = msoTextBox Then
                shp.Delete
            End If
        Next shp
    End If
End Sub

关键细节说明： #

• 明确操作对象：用newWs变量绑定新工作表，确保清除单元格、删除文本框的操作都作用在新表上，不会误改原表
• 错误处理：重命名时临时启用错误捕获，避免因名称重复、含非法字符导致程序崩溃
• 文本框识别：通过遍历工作表所有形状，判断类型为msoTextBox的对象并删除，覆盖所有手动插入或复制过来的文本框

使用步骤： #

1. 按下Alt + F11打开VBA编辑器
2. 在对应工作簿的模块中粘贴上述代码
3. 返回Excel界面，添加表单控件按钮，指定宏为CopySheetRenameClearAndRemoveTextBoxes
4. 点击按钮即可完成所有操作

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