Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 新闻动态
  • Excel资源
  • 关于我们

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中交流网 联系方式

QQ:18449932 


网  址:www.excel-cn.com  

当前位置:网站首页 > Excel教程 > Excel VBA
Excel VBA

excel 设置单元格设定字符为上标

在工作生活中,因为有的行业的特殊性,有的单元格的部分数据会出现上标/下标。

在数据录入过程中,我们可以设定单元格格式来设置为上标或者下标。


如果有大量的单元格中存在某个字符需要设置为上标,我们该如何批量设置?

这里通过一段vba自定义函数,批量设定选中的单元格的某个字符作为上标,这里以“*”为例

blob.png


Sub 标上上标()
'    先选择单元格(可以为多个),再运行此宏
    Dim TRan As Range, FirstAddress As String, FindStr As String, i, j, k, l
    FindStr = "*" '标上上标的字符串
    With Selection
        Set TRan = .Find(FindStr, LookIn:=xlValues)
        If Not TRan Is Nothing Then
            FirstAddress = TRan.Address
            Do
                i = (Len(TRan.Value) - Len(WorksheetFunction.Substitute(TRan.Value, FindStr, ""))) / Len(FindStr)
                k = 1
                For j = 1 To i
                    l = WorksheetFunction.Find(FindStr, TRan.Value, k)
                    TRan.Characters(Start:=l, Length:=Len(FindStr)).Font.Superscript = True
                    k = l + Len(FindStr)
                Next
                Set TRan = .FindNext(TRan)
            Loop While Not TRan Is Nothing And TRan.Address <> FirstAddress
        End If
    End With
End Sub


选中需要设置的单元格,运行代码:

blob.png


参考至:excel吧


点击次数:  更新时间:2018-03-08 09:27:02  【打印此页】  【关闭】
上一条:excel将阿拉伯数字转换为文本形式的罗马数字  下一条:excel阿拉伯数字转换成中文数字
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

中山市天鸣科技发展有限公司 版权所有 1999-2024 粤ICP备10043721号

QQ:18449932

免费Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表、Excel VBA

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2025  www.metinfo.cn