Здравствуйте.
У меня есть проблемка... нужно в экселе написать макрос, который сравнит два массива по строкам, каждый из которых состоит из двух колонок - первая - это цифры, вторая - текст.
Если строка искомого массива найдена во втором, то нас это уже не интересует, если же нет - надо понять, нет ли такой строки в проверяемом массиве вообще, или ошибка в некоторых символах, будь то текст или цифра(а главное, если ошибка в символах, то надо понять, где эта строка находится) - ээм, немного витиевато, но по-другому не написать.

Не могли бы мне помочь с этой задачкой? ^__^
Спасибо.

Ну образно выглядит так:
Sheet1 - исходник
Sheet2 - массив, требующий проверки.

Ну эти две таблички по идее разных размеров, так как что-то может быть недобавленным или дублированным, также, информация в позиции A2:B2 в исходнике может находится во втором шите абсолютно на другой позиции.

Ээм, а не могли бы вы подсказать ссылочку на тот топик? Я искал, но что-то ничего похожего не нашлось... =(

Function Findtext(Rng As Range, text As String) As String
Dim t As String
Dim mycell As Range
For Each mycell In Rng
if InStr(mycell.text, text) > 0 Then
if Len(t) = 0 Then
t = mycell.Address(False, False)
Else
t = t & "," & mycell.Address(False, False)
End If
End If
Next mycell
ContainsText = t
End Function

У меня массив двумерный
x0 y0
x1 y1
x2 y2, где x - число, y - текст. Ну и соответсвенно поиск нужно делать по x & y, потому что только их сочетание делает их уникальными.
Вот функция ищет текст в заданном диапазоне, а как сделать, чтобы он искал сразу и текст и численные выражения?
Хотя, наверное, лучше сделать, чтобы он искал по x, и если совпадение, то сравнивает сразу вторую ячейку, где y.
Вопрос на миллион долларов - как это осуществить? ^__^

хмм, у меня почему-то не работает...
я тут написал макрос, вроде как простой, но чо т нифига не работает
Sub find()
Dim xi As Double
Dim xj As Double
Dim yi As String
Dim yj As String
Dim j As Double
Dim i As Double
Application.ScreenUpdating = False
Sheet9.Activate
i = 'номер первого столбца, которым мы проверяем второй массив'
xi = Cells(i, 1).Value
yi = Cells(i, 2).Value
Do Until i = 'номер последнего столбца, которым мы проверяем второй массив'
Sheet2.Activate
j = 'номер первого проверяемого столбца'
Do Until j = 'номер последнего проверяемого столбца'
xj = Cells(j, 3).Value
yj = Cells(j, 4).Value
If xj = xi And yj = yi Then
Sheet2.Activate
Cells(j, 8).Value = "1"
Sheet9.Activate
Cells(i, 8).Value = "1"
Sheet2.Activate
End If
j = j + 1
Loop
i = i + 1
Loop
End Sub
Хелпаните плиз, почему не работает?
Он мне в шите 9(искомый шит) показывает везде единички, а в проверяемом(шит2) ничего не пишет.