Function f(r As Range, n&, Optional x = 7, Optional s = "Д;Н")
     Dim a(), b&(), j&, k&, jj&, xx, ss$, ff As Boolean
     If x > r.Rows.Count Or x > n Then f = CVErr(xlErrValue): Exit Function
     a = r.Rows(n - x).Resize(x).Value
        
     xx = Split(s, ";")
     For jj = 0 To UBound(xx)
       ss = ";" & xx(jj): xx(jj) = ""
       For j = 1 To x: xx(jj) = xx(jj) & ss: Next
     Next
          
     ReDim b(1 To Application.Caller.Columns.Count): j = 1: k = 0
     Do While j <= UBound(a, 2) And k < UBound(b)
       ss = "": ff = False
       For jj = 1 To x: ss = ss & ";" & a(jj, j): Next
       For jj = 0 To UBound(xx)
         If ss = xx(jj) Then ff = True: Exit For
       Next
       If ff Then k = k + 1: b(k) = j
       j = j + 1
     Loop
     f = b
End Function