Excel中利用VBA实现批量设置文本的上标


Posted on January 13, 2018


 在Excel中设备上标较为简单,通过设备单元格属性即可完成,如下图:

但是如果量大,一个一个设置是不好弄的,结合网上找的内容,写了一段VBA如下:

 

Sub 批量设置上标()
'
' 批量设置上标 宏
'

    ' 复制值
    Dim line As Integer
    
    line = 0    '行号
    
    '行号自动获取, 以免新增行时忘记
    Dim r As Range
    For Each r In Range("A8:A1000")
        If r.Address < r.MergeArea.Address And r.Address = r.MergeArea.Item(1).Address Then
            line = r.Row - 1
            Exit For
        End If
    Next
    
    Range("Y8:Y" & line).Select
    Selection.Copy
    Range("D8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    '设备字体格式
    Range("D8:D" & line).Select
    With Selection.Font
        .Name = "宋体"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    
    '变上标
    Dim txtLength       As Long
    Dim i               As Long
    '循环设置
    For i = 8 To line
        
        '获取文本的长度
        txtLength = Cells(i, "D").Characters.Count
        
        '将最后一个文本设置为上标
        Cells(i, "D").Characters(txtLength, 1).Font.Superscript = True
        
    Next i
    
End Sub

参考网址:http://club.excelhome.net/thread-1247192-1-1.html


标签:N/A

其它推荐日志:

动态创建GridView的列 ( 转载 )

C#二进制数据写入文件

卡巴斯基优化设置及常见问题解答

无提示关闭弹出窗口代码

自动生成圆角,无图片版

FATAL ERROR! ACCESS_VIOLATION 魔兽白屏、无法启动、无法打开选项(内存不可读、光盘驱动器错误)的解决办法

关于session的问题集锦解决方案(PHP)

获取当前URL地址例子(PHP)

可以查看服务器操作系统的网站

IErrorInfo.GetDescription 因 E_FAIL(0x80004005) 而失败

asp.net2.0中gridview里嵌套dropdownlist

一般IIS运行不了ASP.NET,试一下下面四种方法,99%有效

如何在asp.net中用c#在获得当前系统登陆的帐户的Identity

SQL to Select a random row from a database table

c#中结构数组定义

IIS添加下载文件类型的方法

软件项目版本号的命名格式

两种彻底删除VIEWSTATE的方法

Manhattan Distance Calculation(曼哈顿距离算法)

关于br标签高度的问题

memcpy用法

在sql里设定默认时间

收集一些JS识别域名跳转代码

介绍一个web2.0站点模板

数组名和数组名取地址的区别

Mime类型列表

Substring的一个误区!

VS2005出现visual sourcesafe login窗口

浏览器滚动条的参数总结

无需插件,轻松实现FIREFOX后台打开标签

如何JS获取URL参数

MS-SQL数据库开发—精典

VS2003/VS2005 常用快捷键

RequireFieldValidator控件验证相应的输入框是否为空

仿XP关机效果的弹出窗口功能

在关键字 ''User'' 附近有语法错误。

以太网的最小帧长为什么是64字节

细说HTML元素的ID和Name属性的区别

关于mscorsvw.exe进程

AccessDataSource中参数传递的问题


Search
最新评论
推荐日志
微信扫一扫