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
回 yancr 的帖子
yancr:用下面VBA代码能快速更改导出Excel中的校名Sub SJPK()
Dim jpg As Shape
Dim ws As Worksheet
....... (2025-12-03 16:41) images/back.gif
现在得用AI可生成修改的批处理,更简单 “水晶排课11.53注册生成器”怎么被管理员给屏敝了呢? 试试这个软件