algorithm - 特定の整数に対応する Excel の列名を見つけるにはどうすればよいですか?

Question

Excel で n 番目の列の列名 (「AQ」または「BH」など) をどのように決定しますか?

編集:これを決定する言語に依存しないアルゴリズムが、ここでの主な目標です。

Answer 1

私はかつて、その正確なタスクを実行するためにこの関数を書きました:

public static string Column(int column)
{
    column--;
    if (column >= 0 && column < 26)
        return ((char)('A' + column)).ToString();
    else if (column > 25)
        return Column(column / 26) + Column(column % 26 + 1);
    else
        throw new Exception("Invalid Column #" + (column + 1).ToString());
}

Answer 2

これが私が思いつくことができる最もクリーンで正しい解決策です（Javaで、ただし好きな言語を自由に使用してください）：

String getNthColumnName(int n) {
    String name = "";
    while (n > 0) {
        n--;
        name = (char)('A' + n%26) + name;
        n /= 26;
    }
    return name;
}

しかし、このコードに誤りを見つけた場合はお知らせください。ありがとうございます。

Answer 3

言語に依存しないアルゴリズムは次のようになります。

function getNthColumnName(int n) {
   let curPower = 1
   while curPower < n {
      set curPower = curPower * 26
   }
   let result = ""
   while n > 0 {
      let temp = n / curPower
      let result = result + char(temp)
      set n = n - (curPower * temp)
      set curPower = curPower / 26
   }
   return result

このアルゴリズムは、16,000 を超える列を処理するために Excel が再度アップグレードされた場合も考慮に入れます。本当にやり過ぎたい場合は、追加の値を渡し、26 のインスタンスを別の数字に置き換えて、別のアルファベットに対応することができます。

Answer 4

ありがとう、ジョセフ・スターテヴァント！あなたのコードは完全に機能します-vbscriptで必要だったので、私のバージョンを共有したいと思いました:

Function ColumnLetter(ByVal intColumnNumber)
    Dim sResult
    intColumnNumber = intColumnNumber - 1
    If (intColumnNumber >= 0 And intColumnNumber < 26) Then
        sResult = Chr(65 + intColumnNumber)
    ElseIf (intColumnNumber >= 26) Then
        sResult = ColumnLetter(CLng(intColumnNumber \ 26)) _
                & ColumnLetter(CLng(intColumnNumber Mod 26 + 1))
    Else
        err.Raise 8, "Column()", "Invalid Column #" & CStr(intColumnNumber + 1)
    End If
    ColumnLetter = sResult
End Function

Answer 5

Joseph のコードは優れていますが、VBA 関数を使用したくない、または使用する必要がない場合は、これを試してください。

n の値がセルにあると仮定すると、次のA2 関数を使用します。

=MID(ADDRESS(1,A2),2,LEN(ADDRESS(1,A2))-3)

Answer 6

wcmから：

VBAを使用したくない場合は、この置換colnrを必要な番号に使用できます。

=MID(ADDRESS(1,colnr),2,LEN(ADDRESS(1,colnr))-3)

ADDRESS関数を使用しているため、この式は揮発性であることに注意してください。揮発性関数は、変更のたびにExcelによって再計算される関数です。通常、Excelは、依存する参照が変更された場合にのみ数式を再計算します。

この式を使用すると、パフォーマンスが低下する可能性があります。

Answer 7

Rubyワンライナー：

def column_name_for(some_int)
    some_int.to_s(26).split('').map {|c| (c.to_i(26) + 64).chr }.join # 703 => "AAA"
end

整数をbase26に変換してから分割し、計算を行って各文字をASCIIから変換します。最後に、すべてを元に戻します。除算、モジュラス、または再帰はありません。

楽しい。

Answer 8

IF(COLUMN()>=26,CHAR(ROUND(COLUMN()/26,1)+64)&CHAR(MOD(COLUMN(),26)+64),CHAR(COLUMN()+64))

これは 2 文字の列 ( column までZZ) で機能します。3 文字列の場合は、別の if ステートメントをネストする必要があります。

上記の式は、列AY、および次の列と列AZのそれぞれで失敗します。修正された式は次のとおりです。nYnZ

=IF(COLUMN()>26,CHAR(ROUNDDOWN((COLUMN()-1)/26,0)+64)&CHAR(MOD((COLUMN()-1),26)+65),CHAR(COLUMN()+64)

Answer 9

これは、MS Excel 2003-2010 で正常に機能します。Cells(...)をサポートする以前のバージョンで動作するはずです。アドレス機能:

1. 28番目の列の場合 - 取るcolumnNumber=28; Cells(1, columnNumber).Address戻ります"$AB$1"。
2. 符号を分割すると、$次の配列が返されます。["","AB","1"]
3. したがってSplit(Cells(1, columnNumber).Address, "$")(1)、列名が表示されます"AB"。

---

アップデート：

Excelの列番号をアルファベット文字に変換する方法から取得

' The following VBA function is just one way to convert column number 
' values into their equivalent alphabetical characters:

Function ConvertToLetter(iCol As Integer) As String
   Dim iAlpha As Integer
   Dim iRemainder As Integer
   iAlpha = Int(iCol / 27)
   iRemainder = iCol - (iAlpha * 26)
   If iAlpha > 0 Then
      ConvertToLetter = Chr(iAlpha + 64)
   End If
   If iRemainder > 0 Then
      ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
   End If
End Function

適用対象: Microsoft Office Excel 2007 SE / 2002 SE / 2000 SE / 97 SE

Answer 10

そして、これは VBScript バージョンから SQL Server 2000+ への変換です。

CREATE FUNCTION [dbo].[GetExcelColRef] 
(
    @col_seq_no int
)
RETURNS varchar(5)
AS
BEGIN

declare @Result varchar(5)
set @Result = ''
set @col_seq_no = @col_seq_no - 1
If (@col_seq_no >= 0 And @col_seq_no < 26) 
BEGIN
    set @Result = char(65 + @col_seq_no)
END
ELSE
BEGIN
    set @Result = [dbo].[GetExcelColRef] (@col_seq_no / 26) + '' + [dbo].[GetExcelColRef]  ((@col_seq_no % 26) + 1)
END
Return @Result

END
GO

Answer 11

これはvb.netで機能するようです

Public Function Column(ByVal pColumn As Integer) As String
    pColumn -= 1
    If pColumn >= 0 AndAlso pColumn < 26 Then
        Return ChrW(Asc("A"c) + pColumn).ToString
    ElseIf (pColumn > 25) Then
        Return Column(CInt(math.Floor(pColumn / 26))) + Column((pColumn Mod 26) + 1)
    Else
    stop
        Throw New ArgumentException("Invalid column #" + (pColumn + 1).ToString)
    End If
End Function

私はジョセフのものを取り、それをBHにテストし、それからそれを980-1000に与えました、そしてそれは良さそうに見えました。

Answer 12

I suppose you need VBA code:

Public Function GetColumnAddress(nCol As Integer) As String

Dim r As Range

Set r = Range("A1").Columns(nCol)
GetColumnAddress = r.Address

End Function

Answer 13

これは、VBAで必要なことを行います

Function GetNthExcelColName(n As Integer) As String
    Dim s As String
    s = Cells(1, n).Address
    GetNthExcelColName = Mid(s, 2, InStr(2, s, "$") - 2)
End Function

Answer 14

VBA では、lCol が列番号であると仮定します。

function ColNum2Letter(lCol as long) as string
    ColNum2Letter = Split(Cells(1, lCol).Address, "$")(0)
end function

Answer 15

これらの善良な人々が投稿したこれらのコードサンプルはすべて問題ないように見えます。

注意すべきことが1つあります。Office 2007以降、Excelには実際には最大16,384列があります。これはXFDに変換されます（256列の古い最大値はIVでした）。これらのメソッドを3文字で機能させるには、これらのメソッドを多少変更する必要があります。

そんなに難しいことではないはずです...

Answer 16

参考までに、T-SQL を使用して、単一のステートメントとして、序数 (0 から始まる) を指定して Excel の列名を指定します。

0 未満または 16,383 (Excel2010 の最大列数) を超えると、NULL が返されます。

; WITH TestData AS ( -- Major change points
    SELECT -1 AS FieldOrdinal
    UNION ALL
    SELECT 0
    UNION ALL
    SELECT 25
    UNION ALL
    SELECT 26
    UNION ALL
    SELECT 701
    UNION ALL
    SELECT 702
    UNION ALL
    SELECT 703
    UNION ALL
    SELECT 16383
    UNION ALL
    SELECT 16384
)
SELECT
      FieldOrdinal
    , CASE
       WHEN FieldOrdinal < 0     THEN NULL
       WHEN FieldOrdinal < 26    THEN ''
       WHEN FieldOrdinal < 702   THEN CHAR (65 + FieldOrdinal / 26 - 1)
       WHEN FieldOrdinal < 16384 THEN CHAR (65 + FieldOrdinal / 676 - 1)
                                    + CHAR (65 + (FieldOrdinal / 26) - (FieldOrdinal / 676) * 26 - 1)
       ELSE NULL
      END
      + CHAR (65 + FieldOrdinal % 26)
 FROM TestData
 ORDER BY FieldOrdinal

Answer 17

wcm のコメント (top value = xfd) を考慮すると、次のように計算できます。

function IntToExcel(n: Integer); string;
begin
   Result := '';
   for i := 2 down to 0 do 
   begin
      if ((n div 26^i)) > 0) or (i = 0) then
         Result := Result + Char(Ord('A')+(n div (26^i)) - IIF(i>0;1;0));
      n := n mod (26^i);
   end;
end;

アルファベットには 26 文字があり、16 進数や 2 進数のような数体系がありますが、特殊な文字セット (A..Z) を使用して、位置的に 26 の累乗を表します: (26^2)(26^1)( 26^0)。

Answer 18

これがゲイリー・ウォーターズのソリューションです

Function ConvertNumberToColumnLetter2(ByVal colNum As Long) As String
    Dim i As Long, x As Long
    For i = 6 To 0 Step -1
        x = (1 - 26 ^ (i + 1)) / (-25) - 1 ‘ Geometric Series formula
        If colNum > x Then
            ConvertNumberToColumnLetter2 = ConvertNumberToColumnLetter2 & Chr(((colNum - x - 1)\ 26 ^ i) Mod 26 + 65)
        End If
    Next i
End Function

http://www.dailydoseofexcel.com/archives/2004/05/21/column-numbers-to-letters/経由

Answer 19

私は現在これを使用していますが、最適化できると感じています。

private String GetNthExcelColName(int n)
{
    String firstLetter = "";  
    //if number is under 26, it has a single letter name
    // otherwise, it is 'A' for 27-52, 'B' for 53-78, etc
    if(n > 26)
    {
        //the Converts to double and back to int are just so Floor() can be used
        Double value = Convert.ToDouble((n-1) / 26);
        int firstLetterVal = Convert.ToInt32(Math.Floor(value))-1;
        firstLetter = Convert.ToChar(firstLetterValue + 65).ToString();
    }    

    //second letter repeats
    int secondLetterValue = (n-1) % 26;
    String secondLetter = Convert.ToChar(secondLetterValue+65).ToString();

    return firstLetter + secondLetter;
}

Answer 20

=CHAR(64+COLUMN())