メインコンテンツへスキップ

Excelで列の文字を数字に、またはその逆に変換するにはどうすればよいですか?

この記事では、列の文字を列の番号に変換する方法、または列の番号を文字に変換する方法について説明します。 たとえば、列の文字AAを数値27に変換するか、列番号100を文字CVに変換します。 以下の方法で解決策を得る。

数式を使用して、列の文字を数値に、またはその逆に変換します

ユーザー定義関数を使用して、列の文字を数値に、またはその逆に変換します


矢印青い右バブル 数式を使用して、列の文字を数値に、またはその逆に変換します

列の文字またはラベルを数字に、またはその逆に変換するには、次の数式が役立つ場合があります。次のようにしてください。

列文字を列番号に変換します。

次の式を入力してください: = COLUMN(INDIRECT( "AB1")) 変換された結果を検索する空白のセルに移動し、を押します 入力します 列番号を取得するためのキー:

docは列ラベルを数値1に変換します

注: 上記の式では、 AB は、列番号を取得するための列文字です。必要に応じて変更できます。

列番号を列文字に変換します。

次の式を入力してください: = SUBSTITUTE(ADDRESS(1,200,4)、1、 "") 空白のセルに入力して結果を取得し、を押します 入力します 次のように列文字を取得するには:

docは列ラベルを数値2に変換します

注: 上記の式では、赤い数字 200 は列文字に変換する列番号です。必要に応じて変更できます。


矢印青い右バブル ユーザー定義関数を使用して、列の文字を数値に、またはその逆に変換します

数式を除いて、ここでは、 ユーザー定義関数 このタスクに対処します。

列文字を列番号に変換します。

1。 を押し続けます Alt + F11 キーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:列文字を列番号に変換します:

Public Function ToColNum(ColN)
    ToColNum = Range(ColN & 1).Column
End Function

3。 次に、このコードを保存して閉じ、ワークシートに戻って、次の数式を入力します。 = Tocolnum( "VV") (VV 数値を変換する列文字です。 )を空白のセルに入れ、を押します 入力します 列番号を取得するためのキー。スクリーンショットを参照してください。

docは列ラベルを数値3に変換します

列番号を列文字に変換します。

1。 を押し続けます Alt + F11 キーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:列番号を列文字に変換します:

Public Function ToColletter(Collet)
    ToColletter = Split(Cells(1, Collet).Address, "$")(1)
End Function

3。 次に、このコードを保存して閉じ、ワークシートに戻って、次の数式を入力します。 = ToColletter(50) (50 文字に変換する列番号です。 )を空白のセルに入れ、を押します 入力します 列番号を取得するためのキー。スクリーンショットを参照してください。

docは列ラベルを数値4に変換します

最高のオフィス生産性向上ツール

🤖 Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト ツール (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット ツール (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

説明


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (10)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Public Function AlphabetInteger(ByVal letter As String) As Integer
Dim N As Integer
letter = Strings.UCase(letter)
If letter = "A" Then
N = 1
ElseIf letter = "B" Then
N = 2
ElseIf letter = "C" Then
N = 3
ElseIf letter = "D" Then
N = 4
ElseIf letter = "E" Then
N = 5
ElseIf letter = "F" Then
N = 6
ElseIf letter = "G" Then
N = 7
ElseIf letter = "H" Then
N = 8
ElseIf letter = "I" Then
N = 9
ElseIf letter = "J" Then
N = 10
ElseIf letter = "K" Then
N = 11
ElseIf letter = "L" Then
N = 12
ElseIf letter = "M" Then
N = 13
ElseIf letter = "N" Then
N = 14
ElseIf letter = "O" Then
N = 15
ElseIf letter = "P" Then
N = 16
ElseIf letter = "Q" Then
N = 17
ElseIf letter = "R" Then
N = 18
ElseIf letter = "S" Then
N = 19
ElseIf letter = "T" Then
N = 20
ElseIf letter = "U" Then
N = 21
ElseIf letter = "V" Then
N = 22
ElseIf letter = "W" Then
N = 23
ElseIf letter = "X" Then
N = 24
ElseIf letter = "Y" Then
N = 25
ElseIf letter = "Z" Then
N = 26
Else
N = 0
End If
AlphabetInteger = N
End Function


Public Function ColumnNumber(ByVal columnLetter As String) As Integer
Dim I As Integer
Dim sLength As Integer
Dim N As Integer
Dim A As Integer
Dim P As Integer
Dim C As String

sLength = Len(columnLetter)
N = 0
For I = 1 To sLength
P = sLength - I
C = Strings.Mid(columnLetter, I, 1)
A = AlphabetInteger(C)
N = N + A * 26 ^ P
Next I
ColumnNumber = N
End Function
This comment was minimized by the moderator on the site
Best solution =SUBSTITUTE(ADDRESS(1;COLUMN();4);1;"")
Thanks a lot.
Rated 5 out of 5
This comment was minimized by the moderator on the site
A to ZZ
=if(row()>26,char(row()/26+64)&char(mod(row(),26)+64),char(row()+64))
This comment was minimized by the moderator on the site
This formula does not work at rows that are multiples of 26. It gives B@ instead of AZ, C@ instead of BZ, D@ instead of CZ, etc.
Correction:= IF(ROW()>26,(IF(MOD(ROW(),26)=0,CHAR((ROW()-1)/26+64)&CHAR(MOD(ROW()-1,26)+65), CHAR(ROW()/26+64)&CHAR(MOD(ROW(),26)+64))),CHAR(ROW()+64))
This comment was minimized by the moderator on the site
thank you so much!!!...your formula to create the column letter to number really helps me a lot.
This comment was minimized by the moderator on the site
Function ToColletter(Collet) works as volatile function. If something changes anywhere in the sheet. It recalculate everywhere. In my case it makes 15 mil calculations and slowdown the calculation. Do you know how to fix it, if I dont want set application.calculation to manual and than back?
This comment was minimized by the moderator on the site
hola, cuando pego la formula = SUSTITUIR (DIRECCIÓN (1,200,4), 1, "") en una celda no hace nada, solo devuelve la formula, ya sea con 200 o cualquier otro numero
This comment was minimized by the moderator on the site
=CHAR(COLUMN( )+64)
This comment was minimized by the moderator on the site
Not better as it only works with 26 columns.
This comment was minimized by the moderator on the site
For so long I've used R1C1 cell referencing because I didn't know about the =SUBSTITUTE(ADDRESS(1,number,4),1,"") solution. Thank you!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations