если в шапка содержит субсчет

Function Getget(rn As Range) As Variant
Dim arr(1, 4) As String
    arr(0, 0) = "Оборотно-сальдовая ведомость по счету"
    arr(0, 1) = "Оборотно-сальдовая ведомость:"
    arr(0, 2) = "Оборотно-сальдовая ведомость"
    arr(0, 3) = "ОСВ"
For i = 0 To UBound(arr, 2)
  If Not rn.Find(arr(0, i)) Is Nothing Then
     Getget = Trim(Mid(rn.Find(arr(0, i)).Value, Len(arr(0, i)) + 1))
     
     If Len(Getget) = 2 Then
        Getget = Left(Trim(Right(rn.Find(arr(0, i)).Value, Len(rn.Find(arr(0, i)).Value) - Len(arr(0, i)))), 2) & "  2"
     Else: gegtet = Left(Trim(Right(rn.Find(arr(0, i)).Value, Len(rn.Find(arr(0, i)).Value) - Len(arr(0, i)))), 5)
     End If
     
     Exit For
  End If
Next i
End Function

Добавить комментарий

Ваш адрес email не будет опубликован.