excel vba按条件提取指定内容（一小段ExcelVBA代码020单元格区域中批量设置上标）

一段简单的VBA代码，让你自如操作Excel！

抛砖引玉的场景需求：将下表房屋面积中的M2平方单位中的数字2统一设置为上标。

表格示例

代码运行演示

代码示例

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

Sub 批量修改上标() Dim r As Long Dim T As Long For r = 2 To 5 '获取单元格文本长度 T = Len(Cells(r, "D")) '将文本最后一个字符设置上标 Cells(r, "D").Characters(T, 1).Font.Superscript = True Next End Sub

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

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

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

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

《神奇的VBA》选项卡样式

神奇的VBA使用演示图