Excel通过VBA合并单元格,并设置上标、下标

 标签:Excel,VBA,上标,下标
   修改 | 阅读(1019)| 评论(0)

以下程序通过合并ABC三列到D列,同时设置C列的数据为下标

Sub HeBing()
    For r = 1 To 6940'设置要处理的行数,6490为末行
        c1 = Cells(r, 1)
        Range("D" & r).Value = c1 + " " + Cells(r, 2) + " " + Cells(r, 3)
        s = Len(c1) + Len(Cells(r, 2)) + 2'下标开始的字符
        l = Len(Cells(r, 3)) + 1'要设置为下标的长度
        Range("D" & r).Characters(Start:=s, Length:=l).Font.Subscript = True'Superscript为上标
    Next r
End Sub



VBA程序,工具》宏》输入宏名称(上例中为“HeBing”)》创建,复制以上程序进去
效果图:

备注已显示为下标

您的昵称:*
QQ登录(无需注册直接登录可进行回复)
您的邮箱:(填写邮箱,如有回复可进行邮件通知)
验证码:
点击刷新