Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Найти и заменить длинный текст, более 255 символов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Найти и заменить длинный текст, более 255 символов (Формулы/Formulas)
Найти и заменить длинный текст, более 255 символов
rowniewby Дата: Воскресенье, 03.06.2018, 20:49 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Подскажите пожалуйста, как можно реализовать с помощью макроса, поиск и замену длинных фрагментов текста 300-1500 символов, через классический способ можно только 255 знаков.
Огромное спасибо!
 
Ответить
СообщениеПодскажите пожалуйста, как можно реализовать с помощью макроса, поиск и замену длинных фрагментов текста 300-1500 символов, через классический способ можно только 255 знаков.
Огромное спасибо!

Автор - rowniewby
Дата добавления - 03.06.2018 в 20:49
rowniewby Дата: Воскресенье, 03.06.2018, 21:32 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
ы киньте примерчик-то строк на 10-20. С

Например ищем текст "Queen Eleanor’s Confession
THE Queen’s faen sick, and very, very sick,
Sick, and going to die,
And she’s sent for twa friars of France,
To speak with her speedilie.

The King he said to the Earl Marischal,
To the Earl Marischal said he,
The Queen she wants twa friars frae France,
To speak with her presentlie.

Will ye put on a friar’s coat,
And I’ll put on another,
And we’ll go in before the Queen,
Like friars both together.

‘But O forbid,’ said the Earl Marischal,
‘That I this deed should dee!
For if I beguile Eleanor our queen,
She will gar hang me hie.’

и заменяем на

Королева Элинор
Королева Британии тяжко больна,
Дни и ночи ее сочтены.
И позвать исповедников просит она
Из родной, из французской страны.

Но пока из Парижа попов привезешь,
Королеве настанет конец…
И король посылает двенадцать вельмож
Лорда-маршала звать во дворец.

Он верхом прискакал к своему королю
И колени склонить поспешил.
— О король, я прощенья, прощенья молю,
Если в чем-нибудь согрешил!

— Я клянусь тебе жизнью и троном своим:
Если ты виноват предо мной,
Из дворца моего ты уйдешь невредим
И прощенный вернешься домой.
 
Ответить
Сообщение
ы киньте примерчик-то строк на 10-20. С

Например ищем текст "Queen Eleanor’s Confession
THE Queen’s faen sick, and very, very sick,
Sick, and going to die,
And she’s sent for twa friars of France,
To speak with her speedilie.

The King he said to the Earl Marischal,
To the Earl Marischal said he,
The Queen she wants twa friars frae France,
To speak with her presentlie.

Will ye put on a friar’s coat,
And I’ll put on another,
And we’ll go in before the Queen,
Like friars both together.

‘But O forbid,’ said the Earl Marischal,
‘That I this deed should dee!
For if I beguile Eleanor our queen,
She will gar hang me hie.’

и заменяем на

Королева Элинор
Королева Британии тяжко больна,
Дни и ночи ее сочтены.
И позвать исповедников просит она
Из родной, из французской страны.

Но пока из Парижа попов привезешь,
Королеве настанет конец…
И король посылает двенадцать вельмож
Лорда-маршала звать во дворец.

Он верхом прискакал к своему королю
И колени склонить поспешил.
— О король, я прощенья, прощенья молю,
Если в чем-нибудь согрешил!

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

Автор - rowniewby
Дата добавления - 03.06.2018 в 21:32
_Boroda_ Дата: Воскресенье, 03.06.2018, 21:48 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13187
Репутация: 5422 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub tt()
Dim d_ As Range
    For Each d_ In Range("A1:A2")
        d_ = Replace(d_, Range("C1"), Range("C2"))
    Next d_
End Sub
[/vba]
К сообщению приложен файл: 671687498.xlsm(15.9 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub tt()
Dim d_ As Range
    For Each d_ In Range("A1:A2")
        d_ = Replace(d_, Range("C1"), Range("C2"))
    Next d_
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 03.06.2018 в 21:48
rowniewby Дата: Воскресенье, 03.06.2018, 22:44 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Не совсем так, задача найти определенный фрагмент текста, он может встречаться много раз на листе и заменить все найденые фрагменты на листе также на определенный фрагмент.
Чтоб оба фрагмента текста прописывались прямо в макросе.
Вот что сейчас работает как надо, но ограничено 255 симоволами.

[vba]
Код
Sub macro422()
'

'
    Range("C1").Select
    Application.CutCopyMode = False
    Cells.Replace What:="Королева Британии тяжко больна", Replacement:= _
        "THE Queen’s faen sick, and very, very sick,", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
[/vba]
 
Ответить
СообщениеНе совсем так, задача найти определенный фрагмент текста, он может встречаться много раз на листе и заменить все найденые фрагменты на листе также на определенный фрагмент.
Чтоб оба фрагмента текста прописывались прямо в макросе.
Вот что сейчас работает как надо, но ограничено 255 симоволами.

[vba]
Код
Sub macro422()
'

'
    Range("C1").Select
    Application.CutCopyMode = False
    Cells.Replace What:="Королева Британии тяжко больна", Replacement:= _
        "THE Queen’s faen sick, and very, very sick,", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
[/vba]

Автор - rowniewby
Дата добавления - 03.06.2018 в 22:44
_Boroda_ Дата: Воскресенье, 03.06.2018, 23:00 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13187
Репутация: 5422 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
И в чем проблема? Так, как у Вас - не будет работать, а если поячеечно пробежаться и Реплейсом заменить, то будет
Чтоб оба фрагмента текста прописывались прямо в макросе
А про это Вы не говорили ничего. Ну пропишите в макросе, кто ж не дает-то?
Вот так
[vba]
Код
Sub tt()
    Dim d_ As Range
    t0_ = "Queen Eleanor’s Confession" & vbLf & _
        "THE Queen’s faen sick, and very, very sick," & vbLf & _
        "Sick, and going to die," & vbLf & _
        "And she’s sent for twa friars of France," & vbLf & _
        "To speak with her speedilie." & vbLf & _
         "" & vbLf & _
        "The King he said to the Earl Marischal," & vbLf & _
        "To the Earl Marischal said he," & vbLf & _
        "The Queen she wants twa friars frae France," & vbLf & _
        "To speak with her presentlie." & vbLf & _
         "" & vbLf & _
        "Will ye put on a friar’s coat," & vbLf & _
        "And I’ll put on another," & vbLf & _
        "And we’ll go in before the Queen," & vbLf & _
        "Like friars both together." & vbLf & _
         "" & vbLf & _
        "‘But O forbid,’ said the Earl Marischal," & vbLf & _
        "‘That I this deed should dee!" & vbLf & _
        "For if I beguile Eleanor our queen," & vbLf & _
        "She will gar hang me hie.’"
    t1_ = "Здесь мне писать уже стало лень"
    For Each d_ In ActiveSheet.UsedRange
        d_ = Replace(d_, t0_, t1_)
    Next d_
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеИ в чем проблема? Так, как у Вас - не будет работать, а если поячеечно пробежаться и Реплейсом заменить, то будет
Чтоб оба фрагмента текста прописывались прямо в макросе
А про это Вы не говорили ничего. Ну пропишите в макросе, кто ж не дает-то?
Вот так
[vba]
Код
Sub tt()
    Dim d_ As Range
    t0_ = "Queen Eleanor’s Confession" & vbLf & _
        "THE Queen’s faen sick, and very, very sick," & vbLf & _
        "Sick, and going to die," & vbLf & _
        "And she’s sent for twa friars of France," & vbLf & _
        "To speak with her speedilie." & vbLf & _
         "" & vbLf & _
        "The King he said to the Earl Marischal," & vbLf & _
        "To the Earl Marischal said he," & vbLf & _
        "The Queen she wants twa friars frae France," & vbLf & _
        "To speak with her presentlie." & vbLf & _
         "" & vbLf & _
        "Will ye put on a friar’s coat," & vbLf & _
        "And I’ll put on another," & vbLf & _
        "And we’ll go in before the Queen," & vbLf & _
        "Like friars both together." & vbLf & _
         "" & vbLf & _
        "‘But O forbid,’ said the Earl Marischal," & vbLf & _
        "‘That I this deed should dee!" & vbLf & _
        "For if I beguile Eleanor our queen," & vbLf & _
        "She will gar hang me hie.’"
    t1_ = "Здесь мне писать уже стало лень"
    For Each d_ In ActiveSheet.UsedRange
        d_ = Replace(d_, t0_, t1_)
    Next d_
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 03.06.2018 в 23:00
rowniewby Дата: Воскресенье, 03.06.2018, 23:15 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Спасибо большое, я думаю то что нужно.
 
Ответить
СообщениеСпасибо большое, я думаю то что нужно.

Автор - rowniewby
Дата добавления - 03.06.2018 в 23:15
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Найти и заменить длинный текст, более 255 символов (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!