Excel 怎样用vba实现字体格式替换
发布网友
发布时间：2022-05-06 07:49
共1个回答
热心网友
时间：2022-06-29 01:37
直接查找替换
vba替换
Sub x()
Dim x, rg
For x = 1 To Sheets.Count
If x = 3 Or x = 6 Then GoTo 10
For Each rg In Sheets(x).UsedRange
With rg.Font
If .Bold = True And .Name = "宋体" Then
.Name = "楷体常规"
.Size = 11
.Bold = False
End If
End With
Next
10
Next
End Sub
