如何批量设置文本上标?

lyd630 · 发表于 2009-5-21 18:18

如何批量设置文本上标.rar (1.94 KB, 下载次数: 163) 请问各位高手:
如何在单元格区域中批量设置文本上标?

雪儿浪漫想 · 发表于 2009-5-21 18:54

替换方法可能行不通哟

19871122dong · 发表于 2009-5-21 19:25

替换不行，替换的话整个单元格都会跟着变成上标！

Zamyi · 发表于 2009-5-21 19:28

Sub Macro1()
  For Each C In Selection
For i = 1 To Len(C)
   If Mid(C, i, 1) = "#" Then C.Characters(Start:=i, Length:=1).Font.Superscript = True
   Next i
Next C

End Sub

19871122dong · 发表于 2009-5-21 19:34

VBA 就是这么强大，不服不行，楼上的代码经测试OK，学习了！

gcr0611 · 发表于 2009-5-21 20:20

VBA从哪里入手啊

半个月亮 · 发表于 2009-5-21 21:11

我也不知道从哪里入手？？我是下了论坛好多入门教程看。还是没入门。但我搞清了VBA是面向对象的程序设计，弄清楚了针对的对象，再要弄清楚他的属性和方法。可是属性和方法的意思，不知道到哪里去查？每次看到程序都不知道这个属性或方法表达的意思是什么？

lyd630 · 发表于 2009-5-22 08:43

非常感谢4楼高手!
这个问题已困惑多年,终于得已解决!

stephen1707 · 发表于 2010-8-14 22:56

原帖由 Zamyi 于 2009-5-21 19:28 发表

这代码厉害，设置单元格往往很慢，这下轻松多了！

renqiang851224 · 发表于 2010-8-14 23:52

学习一下VBA

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

[求助] 如何批量设置文本上标?

非常感谢!

回复 4楼 Zamyi 的帖子