Поиск в массиве

[onsite]

Есть массив из столбцов и строк. например:
1 2 3 4 5
1
2
3 9
4
5 2

Мне нужно чтобы эксель искал нужную мне цифру. Каждой строке и столбцу присваивается номер(для расчетов) и как то эксель должен по строке и столбцу найти нужное число и вынести его в ячейку нужную.

[EducatedFool]

Пример файла мы должны нарисовать?
Из каких ячеек брать номер строки и столбца для поиска?

Покажите свой файл Excel, выделите в нем желтым 2 ячейки с исходными данными, и зелёным - ячейку под результат.
И решение не заставит себя долго ждать.

Смотрите также:
Надстройки и программы для поиска в Excel:
http://excelvba.ru/category/Excel/search

Надстройка для поиска на всех листах книги Excel
Надстройка для поиска в Excel с выводом результатов на новый лист
Поиск из поля на панели инструментов Excel

[Bape}l{ka]

оо, у меня тоже про массивы, подскажите пожалуйста
задается массив, потом его надо вставить в операцию замены, но что-то не пойму, как к нему обращаться:

   'массив замены
    Dim rpl As String
    Dim ArrayRepl(0 To 5) As Integer
    ArrayRepl(0) = ","
    ArrayRepl(1) = "."
    ArrayRepl(2) = ":"
    ArrayRepl(3) = ";"
    ArrayRepl(4) = "?"
    ArrayRepl(5) = "!"
        
    'Удаляем знаки препинания из предложений
    Selection.Replace What:=ArrayRepl(), Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

[Казанский]

dim x
for each x in split(", . ; : ? !")
    Selection.Replace What:=x, Replacement:="", 'и прочие аргументы
next

[Bape}l{ka]

нет, знаете, Казанский, так удаляется все из ячейки, в том числе и слова, а мне надо чтобы только знаки препинания =т

и тем не менее, вопрос про массивы тоже открыт, как к нему обращаться, чтоб все элементы массива проверялись?

п.с.: и еще, как двойные кавычки (") тоже загнать в переменную, как их вообще в коде экранировать?

[nilem]

Сообщение от Bape}l{ka

... мне надо чтобы только знаки препинания...

Так вроде должно сработать:

Dim x
For Each x In Array(",", ".", ";", ":", "?", "!", Chr(34))
    Selection = Replace(Selection, x, "")
Next

[IgorGO]

было:

ArrayRepl(4) = "?"
...
Selection.Replace What:=ArrayRepl(), Replacement:="", LookAt:=xlPart...

поиск знака вопроса, как части слова и сносит все начисто...
хотите знаки вопроса удалить? используйте ArrayRepl(4) = "~?"

[IgorGO]

2 onsite:
СМЕЩ и ИНДЕКС замечательно находят значение по его строке, столбцу в диапазоне данных

[Bape}l{ka]

nilem, спасибо большое, по крайней мере выполняется нужная операция)))
правда, если в Selection больше 1й ячейки, то ругается, но ведь можно ячейки перебрать =ь

IgorGO, ах вот оно в чем дело!! не догадалась =ь а если я хочу удалить двойную кавычку (вот такую "), то как написать?
и кстати, мой способ (см. 1е сообщение) не срабатывает. если писать What:=ArrayRepl() , то проверяется только 0-й элемент массива, а все не проверяются, поэтому и спрашиваю

[nilem]

Ага, с тильдой работает, и перебирать не надо:

Dim x
For Each x In Array(",", ".", ";", ":", "~?", "!", Chr(34))
    Selection.Replace What:=x, Replacement:=""
Next