哈哈哈
Sub AddTitle(ByVal sht As Worksheet) '第一步插入行 sht.Rows("1:1").Insert Shift:=xlDown '第二步合并单元格 With sht.Range("A1:D1") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Merge '第三步 输入标题内容 .FormulaR1C1 = "批量添加的标题" '第四步 设置字体加粗 字号 .Font.Bold = True .Font.Size = 16 End With End Sub Sub AddTitleForAll() '声明变量 Dim sht As Worksheet '循环所有工作表 For Each sht In ThisWorkbook.Worksheets '对名称含有-的工作表进一步操作 If InStr(sht.Name, "-") > 0 Then Call AddTitle(sht) End If Next sht '释放对象 Set sht = Nothing End Sub