Замена текста / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена текста

6 сообщений из 6, страница 1 из 1

Замена текста

#38305645

due

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.

Sub replace()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Columns(6).Cells
c = Replace(c, "Иванов", "мой_текст_для_замены", 1, 1)
Next
End Sub

Нашёл в углу интернета макрос , но никак не могу приспособить под свои нужды. Мне нужно в шестом столбце полностью заменить ячейку, которая содержит "Иванов". Единственное условие: количество строк в файле заранее неизвестно.
То, что процитировано - оно заменяет, но если в ячейке написано "тов. Иванов И. И.", то в итоге получается "тов. мой_текст_для_замены И. И.". Пытался (по аналогии с Ctrl+H) искать как "*Иванов*", но в таком случае замена не работает вообще. Как правильно доработать этот макрос? Или же есть более изящные приёмы для замены текста?

...

Рейтинг:

0 / 0

21.06.2013, 08:03

| Ответить | Цитировать | Написать

Замена текста

#38305688

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

due

Код: vbnet

Sub replace()

То, что процитировано - оно заменяетНе верю.

dueесли в ячейке написано "тов. Иванов И. И.", то в итоге получается "тов. мой_текст_для_замены И. И.".А проверять, что после заменяемого фрагмента пусто - кто будет?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

sub MyReplace(where_to_replace as range, replace_what as string, replace_to as string)
static tmp() as string
static cll as range
for each cll in where_to_replace 
  tmp=split(cll.value,replace_what)
  if ubound(tmp)=1 and trim(tmp(1))="" then
    cll.value = tmp(0) & replace_to 
  end if
next
end sub

Драфт, не проверял.

...

Рейтинг:

0 / 0

21.06.2013, 09:18

| Ответить | Цитировать | Написать

Замена текста

#38305712

Maxim12345678

Гость

due, попробуйте так

Код: vbnet

1.
2.
3.
4.

Dim a as Workbook
Set a=ThisWorkbook
c = a.Sheets("1").Range("F1").End(xlDown).Row
If a.Sheets(1).Cells(c, 6).Text Like "*Иванов*" Then a.Sheets(1).Cells(c, 6) = "мой_текст_для_замены"

...

Рейтинг:

0 / 0

21.06.2013, 09:37

| Ответить | Цитировать | Написать

Замена текста

#38305720

Maxim12345678

Гость

Maxim12345678,

Код: vbnet

1.
2.
3.
4.
5.

Dim a as Workbook
Set a = ThisWorkbook
k = a.Sheets("1").Range("F1").End(xlDown).Row
For c = 1 to k
If a.Sheets(1).Cells(c, 6).Text Like "*Иванов*" Then a.Sheets(1).Cells(c, 6) = "мой_текст_для_замены"

Next c

...

Рейтинг:

0 / 0

21.06.2013, 09:39

| Ответить | Цитировать | Написать

Замена текста

#38305721

Maxim12345678

Гость

due, попробуйте так

Код: vbnet

1.
2.
3.
4.
5.
6.

Dim a as Workbook
Set a = ThisWorkbook
k = a.Sheets("1").Range("F1").End(xlDown).Row
For c = 1 to k
If a.Sheets(1).Cells(c, 6).Text Like "*Иванов*" Then a.Sheets(1).Cells(c, 6) = "мой_текст_для_замены"
Next c

ЗЫ: прошу прощения за кучу одинаковых сообщений.

...

Рейтинг:

0 / 0

21.06.2013, 09:41

| Ответить | Цитировать | Написать

Замена текста

#38305764

due

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.

Dim a as Workbook
Set a = ThisWorkbook
k = a.Sheets("1").Range("F1").End(xlDown).Row
For c = 1 to k
If a.Sheets(1).Cells(c, 6).Text Like "*Иванов*" Then a.Sheets(1).Cells(c, 6) = "мой_текст_для_замены"
Next c

То, что как раз и требовалось!!!
Maxim12345678, спасибо!!!!!

...

Рейтинг:

0 / 0

21.06.2013, 10:00

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена текста

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=76&tid=2174722]:	0ms
get settings:	10ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	32ms
get topic data:	12ms
get forum data:	3ms
get page messages:	53ms
get tp. blocked users:	2ms
others:	17ms

total:	153ms