用下面VBA代码能快速更改导出Excel中的校名
Sub SJPK()
Dim jpg As Shape
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Range("A3:D3").Merge
ws.Range("A3").HorizontalAlignment = xlLeft
ws.Range("A3").Value = "XXX学校"
For Each jpg In ws.Shapes
If jpg.Type = 13 Then
jpg.Delete
End If
Next jpg
Next ws
End Sub