Function GetQQQ(rn As Range) As Variant
Dim arr(1, 1) As String
arr(0, 0) = «Оборотно-сальдовая ведомость по счету »
For i = 0 To UBound(arr, 2)
If Not rn.Find(arr(0, i)) Is Nothing Then
If i = 0 Then
GetQQQ = Right(rn.Find(arr(0, i)).Value, Len(rn.Find(arr(0, i)).Value) — Len(«Оборотно-сальдовая ведомость по счету «) — 6)
GetQQQ = Left(GetQQQ, Len(GetQQQ) — 3)
Else
GetQQQ = Right(rn.Find(arr(0, i)).Value, Len(rn.Find(arr(0, i)).Value) — InStr(1, rn.Find(arr(0, i)).Value, «за», vbTextCompare) — 2)
GetQQQ = Left(GetQQQ, Len(GetQQQ) — 3)
End If
Exit For
End If
Next i
End Function