[已解决]请问老师，如何批量将A列中的数字设置为下标呢，谢谢

雨雪霏

批量将A列中的数字设置为下标

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-4-22 22:16

回复 雨雪霏 的帖子

1. Sub 批量设置下标()
   
2. On Error Resume Next
   
3. Dim rng1 As Range
   
4. Dim rng2 As Range
   
5. Set rng1 = Application.InputBox(prompt:="请选择单元格区域", Title:="批量设置单元格下标", Type:=8)
   
6. For Each rng2 In rng1
   
7. rng2.Characters(2).Font.Subscript = True
   
8. Next
   
9. End Sub
   

复制代码

求助.rar (8.86 KB, 下载次数: 18)

2011-4-22 22:16 上传

点击文件名下载附件

跳转到最佳答案楼层

shejiang88

没有明白你的意思啊，你想要A1直接下拉不就完了吗？

雨雪霏

是设置下标 这样：A1

cjainwei

1. Sub Macro1()
   
2. For i = 1 To [a65536].End(xlUp).Row
   
3.      Cells(i, 1).Characters(2, Len(Cells(i, 1).Value) - 1).Font.Subscript = 1
   
4. Next
   
5. End Sub
   

复制代码

shejiang88

在单元格里面设置》自定义》输入代码“A”G/通用格式》回车就可以了啊

ljzzlan

跟帖学习，不知道是不是可以有函数或技巧之类的能解决此问题，V的东东不懂

lyn666666

A为下标啊
Sub mysubs()
Dim i As Byte
For i = 1 To [A65536].End(3).Row
    Cells(i, 1).Characters(1, 1).Font.Subscript = True
Next
End Sub

sunjing-zxl

回复 雨雪霏 的帖子

1. Sub 批量设置下标()
   
2. On Error Resume Next
   
3. Dim rng1 As Range
   
4. Dim rng2 As Range
   
5. Set rng1 = Application.InputBox(prompt:="请选择单元格区域", Title:="批量设置单元格下标", Type:=8)
   
6. For Each rng2 In rng1
   
7. rng2.Characters(2).Font.Subscript = True
   
8. Next
   
9. End Sub
   

复制代码

求助.rar (8.86 KB, 下载次数: 18)

2011-4-22 22:16 上传

点击文件名下载附件

雨雪霏

回复 lyn666666 的帖子

，是数字是下标

雨雪霏

回复 lyn666666 的帖子

这个Characters(1, 1)是什么意思？？帮助里怎找不到？？谢谢