英语翻译Sub换颜色()Fori=1To100Cells(i,1).SelectForx=1ToLen(Cells(i,1))IfMid(Cells(i,1),x,1)="李"ThenActiveCell.Characters(Start:=x,Length:=1).Font.ColorIndex=5EndIfNextNextEndSub

Question

英语翻译
Sub 换颜色()
For i = 1 To 100
Cells(i,1).Select
For x = 1 To Len(Cells(i,1))
If Mid(Cells(i,1),x,1) = "李" Then
ActiveCell.Characters(Start:=x,Length:=1).Font.ColorIndex = 5
End If
Next
Next
End Sub

Answer 1

定义换颜色的过程.（“换颜色”是宏的名称）
定义参数i为：1到100.
选中第一列的i行所有单元格区域.（也就是第一列第一行到第一列第一百行.）
定义参数X为：1到单元格长度.（比如单元格长度为4,则X的值就是1到4之间的数,如果单元格的数值长度为0,也就是空,则X的赋值是0到1）
在单元格中,第X个字符开始从左往右返回1个字符.（因为X本身是一个变量,所以在这里等价于是在单元格中从任意一个字符开始数.）如果将取得的字符返回到单元格中之后等于“李”,那么.
将单元格从第X个字符开始从左往右数返回的1个字符颜色值设定为5.（同上,实际上把含有“李”的单元格中的所有字符都变了颜色）
结束上述如果.
循环.
结束宏过程.