преобразовать тест по критерию

[user7789]

преобразовать тест по критерию

друзья, помогите одолеть проблемку.
Коллеги обратились за помощью, пытаюсь им посодействовать..

Имеется программа которая воспринимает только определенное количество символов в строке(46) и определенное количество строк (35) в листе..
Каким бы макросом любой текст преобразовать под этот критерий?


Пытался выполнить с помощью формул, но не получилось..

[IgorGO]

а нам и попыпаться не на чем - ни текста макроса, ни файла с данными

[user7789]

админ на работе заблокировал подгрузку файлов...

в ячейке a1. имеется текст "OF THIS GUARANTEE WHICH COMPLIES WITH ALL TERMS AND CONDITIONS OF THIS GUARANTEE, STATING THE NUMBER OF THIS GUARANTEE AND THE AMOUNT PAYABLE, AND ACCOMPANIED WITH YOUR STATEMENT THAT THE BENEFICIARY HAS MADE THE ADVANCE PAYMENT WITHIN 7 DAYS FROM THE DATE OF PRO-FORMA INVOICE FOR RELEVANT SHIPMENT UNDER THE CONTRACT, EVIDENCED BY THE BANKING STATEMENT OF SUCH PAYMENT, AUTHORIZED BY THE BANK, AND THE COPY OF THE PRO-FORMA INVOICE FOR RELEVANT SHIPMENT UNDER THE CONTRACT,SIGNED BY THE PRINCIPAL, WITH THE DATE OF RELEVANT SHIPMENT, AND THE PRINCIPAL HAS FAILED TO FULFILL ITS OBLIGATIONS UNDER THE CONTRACT REGARDING SHIPMENT NOT LATER THAN 60 DAYS AFTER THE DATE WHEN ADVANCE PAYMENT ENTERED THE ACCOUNT MENTIONED IN ITEM 1 BELOW IN THIS GUARANTEE AND TO REPAY THE ADVANCE PAYMENT OR ANY PART OF IT PROVIDED THAT:1. THE GUARANTEE ENTERS INTO FORCE FOR THE (FIRST) ADVANCE PAYMENT UPON RECEIPT OF THE (FIRST) ADVANCE PAYMENT UNDER THE CONTRACT IN THE AMOUNT NOT EXCEEDING USD 485 000.00 (FOUR HUNDRED EIGHTY FIVE THOUSD 00 CENTS) INTO THE PRINCIPAL'S ACCOUNT NO."

[user7789]

вот как бы такой текст преобразовать?

[staniiislav]

я если честно не понял чего вы хотите, но может попал:

=ЛЕВСИМВ(текст;количество символов)

cells(строка (в которую нужно поместить результат),столбец (в которую нужно поместить результат))=Left(cells(строка (из которую нужно взять текст),столбец (из которую нужно взять текст)),количество симолов)

[user7789]

имеется текст (приведен выше)в ячейке а1, его необходимо преобразовать в ячейке b1 по критерию:
что в одной строчке 46 символов разделитель между строчками alt+enter
в каждой ячейке по 35 строк из 46 символов.
если количество символов превышает заданый критерий, то продолжение происходит в ячейке c1, d1 и тд.

[Hugo121]

Кажется так. Но проверьте:

Option Explicit

Sub tt()
    Dim s$, ss$, x&, y&, z&
    
    s = [a1].Value
    z = 1
    For x = 1 To Len(s) Step 46
        ss = ss & vbLf & Mid(s, x, 46)
        y = y + 1
        If y = 36 Then y = 0: z = z + 1: Cells(1, z) = Mid(ss, 2): ss = ""
    Next
Cells(1, z + 1) = Mid(ss, 2): ss = ""
End Sub

[user7789]

спасибо Hugo121,

возможно чтоб слова переносились целиком?

[Hugo121]

Возможно. Но об этом в задаче не говорилось. Так что это уже другая задача
Вообще это намного сложнее, так сразу детали решения и не просматриваются...
Делать не берусь - жаль время тратить...
Но возможно кто-то уже такое делал, и у него есть готовое решение?

[user7789]

как говориться, аппетит приходит во время еды))