これは、cells（1,1）の代わりにRange（ “A1″）のようなステートメントを使用する場合に適しています。

したがって、たとえば、ColLetter（1）= A、ColLetter（2）= b、…​、ColLetter（100）

CVなど

3）ColLetter（列番号）⇒列Letterを返します。

パブリック関数ColLetter（colNumber As Long）As String If colNumber <27 Then If colNumber = 0 Then ColLetter = “Z”

Else ColLetter = Mid（ “ABCDEFGHIJKLMNOPQRSTUVWXYZ”、colNumber、1）

End If Else If colNumber <26 ^ 2 + 27 Then ColLetter = Mid（ “ABCDEFGHIJKLMNOPQRSTUVWXYZ”、FLOOR（colNumber / 26）、1）

ColLetter = ColLetter＆ColLetter（colNumber Mod 26）

Else ColLetter = Mid（ “ABCDEFGHIJKLMNOPQRSTUVWXYZ”、FLOOR（（colNumber-26）/ 676）、1）

ColLetter = ColLetter＆ColLetter（colNumber-FLOOR（（colNumber-26）/ 676）* 676）

End If End IfEnd関数