批量寻找单元格内是否包含英文字母，如果有则英文字母单独标色，这个可以实现吗？求解

dp20081

在A列数据内，查找是否包含英文字母，如果包含英文字母则英文字母单独标色，我只知道可以用条件格式进行单元格单充或者单元格内的数据整个进行标色，但是不知道有没有办法只对英文字母进行标色，数字仍旧保持原色，VBA是否能解决这个问题，求教！！！

wudixin96

如果仅是楼主附件内的例子，应该是简单的。

dp20081

wudixin96 发表于 2012-12-10 16:28
如果仅是楼主附件内的例子，应该是简单的。

求解！！！

wudixin96

1. For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
2. With Cells(i, 1)
   
3.   If Not IsNumeric(.Value) Then
   
4.      .Characters(Len(.Value), 1).Font.ColorIndex = 3
   
5.   End If
   
6. End With
   
7. Next

复制代码

只针对字母在最后，且字母为一个的。

dp20081

wudixin96 发表于 2012-12-10 16:37
只针对字母在最后，且字母为一个的。

字母应该不止一个，但是肯定是在最后

wudixin96

1. Set regex = CreateObject("vbscript.regexp")
   
2. regex.Pattern = "[a-zA-Z]+"
   
3. regex.Global = True
   
4. For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
5. With Cells(i, 1)
   
6.   If Not IsNumeric(.Value) Then
   
7.     For Each m In regex.Execute(.Value)
   
8.      .Characters(m.firstindex + 1, m.Length).Font.ColorIndex = 3
   
9.     Next
   
10.   End If
    
11. End With
    
12. Next
    
13. Set regex = Nothing

复制代码

dp20081

wudixin96 发表于 2012-12-10 16:43

第一次接触这个。。。不清楚如何使用这个代码呃。。。能解释下么。。麻烦了

wudixin96

打开 工作簿后，按ALT+F11打开VBE编辑器，然后点“插入－－模块“，然后打开模块，再点“插入－－过程”，给过程取个名称，随便取，如“上色”，然后复制粘贴上面的代码到过程中，最后点 工具栏上一个绿色的小三角。就OK了。
注：这个代码只处理当前工作表的第一列，如果是其它列，需要自己修改。

hehex

感谢wudixin96 老师的程序，我又向老师学了一招。
characters 属性的用法。

dp20081

{:soso_e179:}多谢2位大神。。受教了