┌──────────────────────────────────────┐
│Dim 出力 As String, 入力 As Long                                            │
│出力 = ""                                                                   │
│Do While 入力 > 0                                                           │
│    出力 = Chr(((入力 - 1) Mod 26) + 65) & 出力                             │
│    入力 = Int((入力 - 1) / 26)                                             │
│Loop                                                                        │
└──────────────────────────────────────┘