1. 数字转换为字母
Function num_to_cha(x)
num_to_cha = ChrW((Asc("A") - 1 + x + 2))
End Function
主要的用途在一些表格公式中可以替换,如下:
Sub change()
Dim rowx As Integer
For rowx = 8 To 22
rowy = num_to_cha(rowx)
Value1 = "=SUMPRODUCT('sheet1'!$E$4:$E$23," & rowy & "$3:" & rowy & "$22)"
Sheets(2).Cells(rowx, 26).Formula = Value1
Next rowx
End Sub