[已解决]求助 高手请进 感激涕零

流血De舞步

请问怎么用vba编写代码实现复制粘贴时保留下标    从sheet1   粘贴至sheet2
如果不能实现这个   那请问怎么用vba   实现在特定的单元格     实现将特定的字符改成下标  
如果这个还是不行   那么请问   怎么批量的   改下标     我用查找替换    将整个单元格全变成下标了

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-7-24 18:35

1. [A1].Characters(Start:=2, Length:=1).Font.Subscript = True

复制代码

修改下标
上面的意思是A1中，从第2个字符开始，长度=1的字符修改成下标。
把2改成3，就是从第3位开始。把1改成2..就是改变下标的字符数。
你试试

跳转到最佳答案楼层

gufengaoyue

这样的不行吗？不行的话再考虑修改成下标。

1. Sheet1.[A1].Copy Sheet2.[A1]

复制代码

流血De舞步

gufengaoyue 发表于 2015-7-24 18:32
这样的不行吗？不行的话再考虑修改成下标。

不行   复制出来的下标全变成普通数字了

gufengaoyue

1. [A1].Characters(Start:=2, Length:=1).Font.Subscript = True

复制代码

修改下标
上面的意思是A1中，从第2个字符开始，长度=1的字符修改成下标。
把2改成3，就是从第3位开始。把1改成2..就是改变下标的字符数。
你试试

gufengaoyue

流血De舞步 发表于 2015-7-24 18:35
不行   复制出来的下标全变成普通数字了

你把你的文件发来看下。

流血De舞步

gufengaoyue 发表于 2015-7-24 18:35
修改下标
上面的意思是A1中，从第2个字符开始，长度=1的字符修改成下标。
把2改成3，就是从第3位开始。把 ...

谢谢啊