Excel通过VBA合并单元格，并设置上标、下标-逍遥乐网博客

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

　标签：Excel,VBA,上标,下标

2014-07-26 13:54　　　修改 | 阅读（2440）| 评论（0）

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

↓双击代码段选中复制↓
1 2 3 4 5 6 7 8 9	`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登录(无需注册直接登录可进行回复)

您的邮箱：(填写邮箱，如有回复可进行邮件通知)

验证码：