Простенькая задача

[CraZyy13]

Пока не силен в VBA, но знаю, что задача из простейших
Само задание: Определить номера строк прямоугольной матрицы размером m×n, хотя бы один элемент которых равен k. m=9 n=12
Помогите пожалуйста

[Debugger]

Сколько заплатишь?

[Qwertiy]

Два цикла и проверка. Структуру классов экселя хорошо смотреть в записанном макросе.

[ark]

Два цикла и проверка

Зачем два?

Код: Выделить всё

Function FindValues(rng As Range, k As Long) As String
   Dim r, cell, s As String
   For Each r In rng.Rows
      Set cell = r.Find(k, LookIn:=xlValues)
      If Not cell Is Nothing Then
         If s <> "" Then s = s & ","
         s = s & cell.row
      End If
   Next
   FindValues = s
End Function