エクセルで現在の列名を取得する方法を教えてください

次の関数を試してみてください:

=SUBSTITUTE(ADDRESS(1,COLUMN(),4),"1","")

説明: ADDRESS(row_num, column_num, [abs_num]). つまり、返される値には’$‘がないということです。列'AB'の場合、[abs_num] = 4は'AB1'を返します。代入は'1'を削除します。

これを行うには、ROW、COLUMN関数を使用することができます。これらの数式の引数を省略すると、現在のセルが使用されます。これらは、 OFFSET関数 など、行と列の両方を数値で指定できる関数を直接使うことができます。

例えば、セルD8に=ROW()を入力すると8が返され、同じセルに=COLUMN()を入力すると4が返されます。

それでもカラムの文字を取得したい場合は、カラム番号に 64 を足すだけでよいので (64 は CHAR より 1 文字少ない文字です)、先ほどの例では、セルの値を A に設定すると、返される値は =CHAR(COLUMN()+64) になります。セルの値をセルの位置そのものにしたい場合は、完全な数式は D となります。

念のため、私はアスキーテーブルから 64 を取得しました。また、=CHAR(COLUMN()+64) & ROW()の式を使うこともできますので、これを使って更新された式はCODEになります。=CHAR(COLUMN() + CODE("A") - 1)の最小値は常に1なので、1を引く必要があり、そうすると計算式全体の戻り値の最小値はCOLUMNになります。

しかし、これは2文字の列ではうまくいきません。その場合、2文字列を正しく解析するには次の式が必要です:

=IF(COLUMN()>26,IF(RIGHT(CHAR(IF(MOD(COLUMN()-1,26)=0,1,MOD(COLUMN()-1,26))+64),1)="Y",CHAR(INT((COLUMN()-1)/26)+64) & "Z",CHAR(INT((COLUMN()-1)/26)+64) & CHAR(IF(MOD(COLUMN(),26)=0,1,MOD(COLUMN(),26))+64)),CHAR(COLUMN()+64))&ROW()

もっと簡単な方法があるのかどうかはわかりませんが、セルのBからA1までは問題なく動作することは知っています。しかし、これは、文字ベースの列識別子の使用を避け、純粋な数字ベースの式にこだわるのがベストである理由を示しています（例えば、ZZ99で文字の代わりに列番号を使用するなど）。

次のようにしてみてください

=SUBSTITUTE(SUBSTITUTE(CELL("address"),"$" & ROW(),""), "$", "")

これは、$などを使わずに、正確なカラムヘッダを提供します。

やや手動ですが、より少ないVBAとより簡単な式：

• Excelの行、例えばセルA1では、列番号=column() を入力してください - 下の行では、=Address(1,A1) を入力してください - これは、結果を提供します$A$1

一旦値がコピーされたら、空欄で$と1を見つけて置き換えます。

特定のセルの場合:

=SUBSTITUTE(CELL("address",H3),"$" & ROW(H3),"")

現在のセルの場合:

=SUBSTITUTE(CELL("address"),"$" & ROW(),"")

このバリエーションを試してみてください。それは3文字の列で動作し、フロントエンドに「$」を残していません:

=SUBSTITUTE(ADDRESS(ROW(XFD123),COLUMN(XFD123),4),ROW(XFD123),"")

これも同様に動作します

=MID(CELL("address"),2,FIND("$",CELL("address"),2)-2)

これを任意のセルに入力します:

Español :

=SI(ENTERO((COLUMNA()-1)/26)=0;"";CAR((ENTERO(COLUMNA()-1)/26)+64))&CAR(COLUMNA()-(ENTERO((COLUMNA()-1)/26)*26)+64)

English :

=IF(INT((COLUMN()-1)/26)=0,"",CHAR((INT(COLUMN()-1)/26)+64))&CHAR(COLUMN()-(INT((COLUMN()-1)/26)*26)+64)

column() を行番号に置き換えることができます。

=INDIRECT("MySheet1!"&LOOKUP(COLUMN(),colid)&ROW())

ここで colid は、ワークブック内の他の場所で作成した、複数の行を持つ 2 つの隣接する列からなる named 範囲を指します：最初の列には COLUMN() の番号に対応する 1 から n までの数字を、2 番目の列には A から ZZZ までの文字を、またはあなたが収容したい列の数だけ参照します。ROW()は、行番号を返すためにそのままで構いません。

ですから、上記の文字列を'MySheet2'のセルA1にコピーすると、=MySheet1!A1として評価され、MySheet1の対応するセルで見つけた値を返すことになります。

これにより、例えば、MySheet1を作業領域として使用して、新しいデータを削除したり、再挿入したりすることができます。

磨きエクセルバージョンのためのソリューション：

-特定のセルのために：

=PODSTAW(PODSTAW(KOMÓRKA("adres";B1);"$" & WIERSZ();""); "$"; "")

-現在のセルのために：

=PODSTAW(PODSTAW(KOMÓRKA("adres");"$" & WIERSZ();""); "$"; "")

=MID(ADDRESS(ROW(),COLUMN()),2,FIND("$",ADDRESS(ROW(),COLUMN()),2)-2)

アドレス式は、列名と行名を返すことで動作します。返されるフォーマットは常に $(Column Letters)$(Row Numbers) - 例えば $AA$2 または $XAA$243556

もし $ が常に最初の文字から始まることがわかっているならば、最初の中間式を使って最初の $ 記号の後の文字 (つまり 2 番目の文字) を引っ張り始めることができます。あとは単純な引き算です。

これは、VBA、ユーザー定義式、ソリューションです。

Function COLUMNLETTER(Optional rng As Range) As String
    'Returns the Column Letter of the top left cell in rng.

    If rng Is Nothing Then Set rng = Application.Caller
    COLUMNLETTER = Left(rng.Address(0, 0), IIf(rng.Column > 26, IIf(rng.Column > 702, 3, 2), 1))

End Function

=COLUMNLETTER()を任意のセルで実行すると、セルの列文字を返します。

=COLUMNLETTER(B3)を任意のセルで実行すると、Bを返します。

これを試してみてください:

=LEFT(ADDRESS(1,COLUMN(),4),LEN(ADDRESS(1,COLUMN(),4))-1)

列の見出し（すなわち文字）を見つける方法は次のとおりです：

=RIGHT(LEFT(ADDRESS(1,COLUMN()),LEN(ADDRESS(1,COLUMN()))-2),LEN(ADDRESS(1,COLUMN()))-3)

次の式はどこに置いても動作します（列名を返してくれます）。

=IF(COLUMN()>702,RIGHT(LEFT(ADDRESS(ROW(),COLUMN()),4),3),IF(COLUMN()>26,RIGHT(LEFT(ADDRESS(ROW(),COLUMN()),3),2),RIGHT(LEFT(ADDRESS(ROW(),COLUMN()),2),1)))

try this:

=IF(COLUMN()>26,CHAR(COLUMN()/26 +64),“”“) & CHAR(MOD(COLUMN()-1,26)+65) & ROW()

この関数は、"ZY1 "またはcolumn=701まで有効です。