方法二、辅助列+自定义函数
1.按Alt +F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中输入下面的代码:
Function Bold(rCell As Range)
Application.Volatile
Bold = rCell.Font.Bold
End Function
Application.Volatile方法将该自定义函数标记为易失性函数,这样当工作表中的任意单元格进行计算(或按F9键)时,该函数也将重新计算。
2.关闭VBA编辑器,返回到Excel界面。在B2单元格中输入公式:
=bold(A2)
然后拖动填充柄,将公式填充到B3:B16区域。如果A列文字为粗体,则公式返回TRUE。
3.筛选B列。
注意:如果公式输入完毕后,对A列中的某些单元格进行了加粗或取消加粗操作,上述两种方法中的公式不会立即自动刷新,这时按F9键刷新即可。