Из программы выгружается отчет (плохо), его нужно преобразовать в другой вид (хорошо)

[Anutik]

Из программы выгружается отчет (плохо), его нужно преобразовать в другой вид (хорошо). Количество страниц неограниченно. Суть в том, чтобы подпись зам.начальника была только на последней странице...

[Teslenko_EA]

Здравствуйте Anutik.
"Суть в том", что здесь принято задавать вопросы, а не просто выкладывать файл с сообщением - "его нужно...".
Нужно Вам, а вопроса или просьбы к участникам форума нет.
Евгений.

[Anutik]

Сообщение от Teslenko_EA

Здравствуйте Anutik.
"Суть в том", что здесь принято задавать вопросы, а не просто выкладывать файл с сообщением - "его нужно...".
Нужно Вам, а вопроса или просьбы к участникам форума нет.
Евгений.

Может я некорректно сформировала просьбу...Вопрос...как преобразовать документ (плохо) в документ (хорошо)??? Заранее спасибо за помощь...

[Teslenko_EA]

Здравствуйте Anutik.
если отчет генерирует программа, то в ней скорее всего есть опция задающая параметры колонтитулов. Иначе можно применить подобный код:

Sub onlyLast()
Const sNot$ = "Зам. начальника______________________М.М.Сидоров"
Dim i&, s$, b As Boolean, ar As Object
Set ar = ActiveSheet.UsedRange
For i = ar.Rows.Count + ar.Row To 1 Step -1
    s = Cells(i, 1).Text
    If InStr(s, sNot) Then
        If b = True Then
            s = Replace(s, sNot, Empty)
            Cells(i, 1) = s
        End If
        b = True
    End If
Next
End Sub

Евгений.

[Anutik]

Сообщение от Teslenko_EA

Здравствуйте Anutik.
если отчет генерирует программа, то в ней скорее всего есть опция задающая параметры колонтитулов. Иначе можно применить подобный код:

Sub onlyLast()
Const sNot$ = "Зам. начальника______________________М.М.Сидоров"
Dim i&, s$, b As Boolean, ar As Object
Set ar = ActiveSheet.UsedRange
For i = ar.Rows.Count + ar.Row To 1 Step -1
    s = Cells(i, 1).Text
    If InStr(s, sNot) Then
        If b = True Then
            s = Replace(s, sNot, Empty)
            Cells(i, 1) = s
        End If
        b = True
    End If
Next
End Sub

Евгений.

Спасибо)))