关于批量更改上标的求助

zhunan2007 · 发表于 2011-3-22 20:22

现有一批数字如下：
1234
5678
7895
等等……
我想批量把最后一位改成上标，如何实现？？高手指点，不胜感激

changxuegu · 发表于 2011-3-22 21:12

假设都是4位数且都是文本格式：
Sub aa()
For i = 1 To 3
Cells(i, 1).Characters(Start:=4, Length:=1).Font.Superscript = True
Next
End Sub

zhunan2007 · 发表于 2011-3-23 00:41

直接复制进去没反应，能否再详细些，新手见谅！
1234
5678
7895
比如上面的数字在A1——A3单元格内，怎么写？？

lenghonghai · 发表于 2011-3-23 08:06

原帖由 zhunan2007 于 2011-3-23 00:41 发表
直接复制进去没反应，能否再详细些，新手见谅！
1234
5678
7895
比如上面的数字在A1——A3单元格内，怎么写？？

复制进去后按F5键去行程序才有效果的。

zhunan2007 · 发表于 2011-3-23 22:11

感谢大家尤其是二楼的，已经成功了！！

		自动登录	找回密码
密码			免费注册

[已解决] 关于批量更改上标的求助