EXCEL中如何批量加粗单元格部分内容？

1、打开excel表格，输入一段文字数据。

2、点击视图-宏命令。

3、然后创建宏名称。

4、在出现的宏命令中输入一下代码。

Sub 青椒加粗()

     With ActiveSheet

        For Each c In Range("A1:A12")

              With c

                cv = .Value

                i = InStr(1, cv, "青椒", 1)

                .Characters(i, 2).Font.Bold = True

              End With                         

        Next

     End With

End Sub

5、再次点击执行后，发现所有青椒变成加粗的了。