Адрес ячейки по ее содержимому

[PTyTb32]

Привет, есть кипа файлов excel и нужно партировать их в БД, но проблема в том что столбцы находятся на разных адресах, то есть файлы не идентичны, к примеру в одном файле Столбец A - "Гаражный номер", а столбец B - "Гос номер", а в другом файле наоборот, но я точно знаю что над столбцом с гос номерами всегда будет стоять цифра 1, а над столбцом с гаражным номером - цифра 2, и такими цифрами заполнена вся первая строчка каждого файла, то есть A1 = "1" B1 = "2" A2 = "Гос номер" В2 = "Гаражный номер", в одном файле, А в другом В1 = "1" С1 = "2" В2 = "Гос номер" С2 = "Гаражный номер", и вопрос заключается в том, что как определить по какому адресу в первой строке стоит заветная циферка "1"? Простите за не совсем внятное объяснение...

[Hugo121]

Циклом по строке или поиском.

[PTyTb32]

Сообщение от Hugo121

Циклом по строке или поиском.

А про поиск подробнее можно как его организовать?
все что пришло в голову

var 
  n,i:integer; 
  b:array [1..39] of integer; //39 нужных столбцов, номера которых хочу узнать
begin
  n:=0; //порядковый номер для массива
  for i:=0 to 80 do //цикл для 80 ячеек первой строки (больше 80 точно не будет)
    if Ap.Cells[1,i] <> '' then //если значение в очередной ячейке не пустое
    begin
      b[n]:=i; //записываем номер не пустой ячейки
      inc(n); // увеличиваем счетчик
    end;
end;

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

ой кажется понял!
вот так сработает ведь?

var 
  n,i:integer; 
  b:array [1..39] of integer; //39 нужных столбцов, номера которых хочу узнать
begin
  n:=0; //порядковый номер для массива
  for i:=1 to 39 do//цикл для 39 нужных мне столбцов
    for j:=0 to 80 do //цикл для 80 ячеек первой строки (больше 80 точно не будет)
      if Ap.Cells[1,j] = i then //если значение в очередной ячейке равно искомому
      begin
        b[n]:=j; //записываем номер следующей ячейки
        inc(n); // увеличиваем счетчик
      end;
end;

по идее в итоге мы получим следующее
дано
...A..B..C..D..E..F..G
1.....1..3.......2.....4
2.........................
3.........................
после этого поиска в В будет лежать [2,5,3,7] и зная что первый номер это гос номер, я буду знать что B[1] - это номер столбца с гос номерами
Это ведь будет так работать?

[Hugo121]

Да я без понятия, я нахожусь в разделе "Microsoft Office и VBA"
Тут вроде тогда так где-то...:

Sub tt()
Dim a(1 To 39), i&
    For i = 1 To 80
        If Len(Cells(1, i)) Then a(Cells(1, i)) = i
    Next
End Sub

[PTyTb32]

Да проверил и это работает! записывает все хорошо и находит!