代码如下:
Sub 批量加粗()
Dim a As Range
Dim b As String
b = InputBox("请输入要加粗的关键字")
For Each a In ActiveSheet.UsedRange
If InStr(a.Value, b) > 0 Then
i = InStr(a.Value, b)
a.Characters(i, Len(b)).Font.Bold = True
End If
Next a
End Sub
用法:
视图 \(\Rightarrow\) 宏 \(\Rightarrow\) 填入宏名 \(\Rightarrow\) 新建 \(\Rightarrow\) 将代码粘入 \(\Rightarrow\) 保存 \(\Rightarrow\) 执行
![[Android Pro] Android 4.1 使用 Accessibility实现免Root自动批量安装功能](https://www.kunjuke.com/file/css/thumb/4.jpg/280-180.jpg)
