--用勇气改变可以改变的事情，用胸怀接受不可改变的事情，用智慧分辨两者的不同，学习编程成就更好的自己--
微软公司Office软件在商业办公领域一直占据着主流和主导地位 ， 其中Excel在数据处理和分析领域有着强大的影响力，大部分人在经历几年职场历练后可以熟练的使用Excel函数和透视表功能，基本可以轻松完成绝大多数工作和任务 。但实际上Office的强大和独特之处还在于VBA，因为VBA能够胜任好多个性化二次开发 ， 减少重复机械劳动从而实现办公自动化，开发效率高且开发周期短，尤其对于Excel重度使用者来说会了VBA简直就是如虎添翼?。。。?b>(本人外语专业毕业，机缘巧合爱上编程 ， 自学道路曲曲折折，痛并快乐！)在这里总结一下自学VBA遇到的难点和重点，分享码过的代码和要点总结，希望能够给初学者一点启示和鼓励，同时愿意结交更多大神交流有助提升自己的水平 。
在Excel数据处理工作中有一类是按要求修改单元格内字符颜色 ， 如何使用VBA批量修改单元格内固定位置字符颜色呢？看看以下截图：A列数据中想要修改单元格内第一类数据最后一个数字字符颜色为红色，第二类数据Class这四个字符颜色为蓝色和第三类数据本身为绿色 。
在展开这个问题之前，先要复习一下之前章节讲过的知识点-VBA颜色序号代码，如下：
不同颜色都有对应的编号-ColorIndex，这里展示了50种常用不同颜色和对应编号 。
如何搞定今天提到的问题呢？关键点就是确定单元格的字符位置，这里涉及到的知识点是：Characters(Start:=N, Length:=N)，那么就直接给出解决方案吧?。?
结合颜色序号和字符位置知识点解决：
代码如下：
Sub ChangeWordColor()'修改单元格内指定位置字符数据颜色Application.ScreenUpdating = Falselr = ActiveSheet.UsedRange.Rows.CountFor i = 2 To lr Step 1'复制和粘贴A列数值数据Range("D" & i) = Range("A" & i)'修改单元格内字符数据颜色，主要涉及到开始位置和字符长度Range("D" & i).Characters(Start:=4, Length:=1).Font.ColorIndex = 3Range("D" & i).Characters(Start:=6, Length:=5).Font.ColorIndex = 5Range("D" & i).Characters(Start:=13, Length:=4).Font.ColorIndex = 10Next iApplication.ScreenUpdating = TrueEnd Sub通过这个简单的案例给大家展示了如何锚定单元格内内容指定位置字符数据，这样就可以有的放矢地修改，例如字符大小,颜色和字体等 ， 相信大家看到这里再也不怕类似的问题了吧？?。?
END
我为人人 ， 人人为我?。』队蠹夜刈? ，点赞和转发?。。?/b>
【文科生自学VBA-批量修改单元格内指定位置字符颜色】~~人生不是赛场 ， 梦想不容退场~~不断努力学习蜕变出一个更好的自己，不断分享学习路上的收获和感悟帮助他人成就自己?。。?/b>