批量修改单元格中的不同字体大小和样式

一个单元格中有两种不同的字体样式和大小，使用格式刷无法进行批量处理怎么办？学几句VB代码来实现吧，学不会也没关系，照搬一样用。