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

以下程序通过合并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”）》创建，复制以上程序进去
效果图：

备注已显示为下标