玖叶教程网

一段简单的VBA代码，让你自如操作Excel，成为职场达人！

抛砖引玉的场景需求：上篇中我们是对文本的最后一个字符进行上标设置，这种场景比较规则， 如果我们遇到的是不规则的文本， 比如下表所示的数据， 又怎么样批量将平方单位M2中的2设置为上标呢？见下面表格示例和VBA代码演示！

代码示例

在标准模块中加入如下代码即可实现上面的演示功能。

Sub 批量将M2中的2设置为上标()
Dim r As Long
Dim x As Long
For r = 2 To 5
 '使用InStr函数获取M2第一次出现的位置
 x = InStr(Cells(r, "C"), "M2")
 '如果出现则设置上标（大于0表示文本中有M2）
 If x > 0 Then
 Cells(r, "C").Characters(Start:=x + 1, Length:=1).Font.Superscript = True
 End If
Next
End Sub

本示例中使用了InStr函数获取平方单位出现的位置，并根据位置信息来定位M2中2的顺序位置，最后使用单元格区域对象的Characters属性来添加指定字符的上标特性。

动手试一试，屏幕前的你， 复制代码运行下吧~~！

有关InStr函数和单元格区域对象及更多Excel VBA编程知识（职场牛人的必备秘技），可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件，一款嵌入进Excel Ribbon界面，打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。

插件下载地址戳下面链接：

《神奇的VBA》-职场牛人都在使用的Excel插件