使用下列算法可以实现“ConvertToLetter”功能：
- 列号除以 27，然后将得到的整数赋值给变量“i”。列号减去 i*26，然后将所得结果赋值给变量“j”。将得到的整数值转换为其对应的字母字符，“i”和“j”的取值范围将分别为 0 至 26。
例如：列号为 30。
- 列号除以 27：30 / 27 = 1.1111，由“Int”函数四舍五入后得“1”。i = 1下一个列号 – (i * 26) = 30 -(1 * 26) = 30 – 26 = 4。 j = 4将得到的整数值分别转换为其对应的字母字符， i = 1 =“A”j = 4 =“D”将这两个字母组合在一起就形成了列指示符“AD”。
下面的 VBA 函数就是一种将列号值转换为其对应字母字符的方法：
1FunctionConvertToLetter(iColAsInteger)AsString2DimiAlphaAsInteger3DimiRemainderAsInteger4iAlpha=Int(iCol/27)5iRemainder=iCol-(iAlpha*26)6IfiAlpha>0Then7ConvertToLetter=Chr(iAlpha+64)8EndIf9IfiRemainder>0Then10ConvertToLetter=ConvertToLetter&Chr(iRemainder+64)11EndIf12EndFunction13注意：此函数仅将传递给它的整数转换为其对应的字母数字文本字符，不改变实际工作表上的列标题或行标题的外观。幸福就是重复。每天跟自己喜欢的人一起，通电话，