Каков алгоритм преобразования буквы столбца Excel в его число?

Прокрутите персонажей от последнего к первому. Умножьте значение каждой буквы (A = 1, Z = 26) на 26 ** N, добавьте к промежуточной сумме. Мой навык манипулирования строками в C # отсутствует, поэтому вот несколько очень смешанный псевдокод:

sum=0;
len=length(letters);
for(i=0;i<len;i++)
  sum += ((letters[len-i-1])-'A'+1) * pow(26,i);

Вот решение, которое я написал на JavaScript, если кому-то интересно.

var letters = "abc".toUpperCase();
var sum = 0;
for(var i = 0; i < letters.length;i++)
{
    sum *= 26;
    sum += (letters.charCodeAt(i) - ("A".charCodeAt(0)-1));
}
alert(sum);

Не могли бы вы относиться к нему как к числу с основанием 26, а затем подставлять буквы вместо числа с основанием 26?

Таким образом, ваша самая правая цифра всегда будет необработанным числом от 1 до 26, а оставшаяся часть «числа» (левая часть) - это количество собранных 26? Таким образом, A будет представлять один лот из 26, B - 2 и т. Д.

В качестве примера:

B = 2 = Column 2
AB = 26 * 1(A) + 2 = Column 28
BB = 26 * 2(B) + 2 = Column 54
DA = 26 * 4(D) + 1 = Column 105

так далее

Укороченная версия:

int col = "Ab".Aggregate(0, (a, c) => a * 26 + c & 31);  // 28

Чтобы игнорировать символы, отличные от A-Za-z:

int col = " !$Af$3 ".Aggregate(0, (a, c) => (uint)((c | 32) - 'a') > 25 ? a : a * 26 + (c & 31)); // 32

в Excel VBA вы можете использовать метод .Range для получения числа, например:

Dim rng as Range
Dim vSearchCol as variant 'your input column
Set rng.Thisworkbook.worksheets("mySheet").Range(vSearchCol & "1:" & vSearchCol & "1")

Затем используйте свойство .column:

 debug.print rng.column

если вам нужен полный код, см. ниже:

Function ColumnbyName(vInput As Variant, Optional bByName As Boolean = True) As Variant
    Dim Rng As Range
    If bByName Then
       If Not VBA.IsNumeric(vInput) Then
            Set Rng = ThisWorkbook.Worksheets("mytab").Range(vInput & "1:" & vInput & "1")
            ColumnbyName = Rng.Column
       Else
            MsgBox "Please enter valid non Numeric column or change paramter bByName to False!"
       End If

    Else
        If VBA.IsNumeric(vInput) Then
            ColumnbyName = VBA.Chr(64 + CInt(vInput))
        Else
            MsgBox "Please enter valid Numeric column or change paramter bByName to True!"
        End If

    End If
End Function

Я предполагаю, что это по сути работает почти так же, как некоторые другие ответы, но может немного прояснить, что происходит с альфа-эквивалентом числовой цифры. Это не совсем система с основанием 26, потому что в ней нет заполнителя 0. То есть, 26-й столбец будет «A0» или что-то в этом роде вместо Z в базе 26. И это не база 27, потому что «альфа-гиты» не представляют степень 27. Чувак, это действительно заставляет вас понять, какой беспорядок арифметика, должно быть, была до того, как вавилоняне изобрели ноль!

  UInt32 sum = 0, gitVal = 1;
  foreach (char alphagit in ColumnName.ToUpperInvariant().ToCharArray().Reverse())
  {
    sum += gitVal * (UInt32)(alphagit - 'A' + 1)
    gitVal *= 26;
  }

Как и некоторые другие, я перевернул массив символов, поэтому мне не нужно ничего знать об экспонентах.