Замена части текста в столбце
LSV
Дата: Пятница, 04.08.2017, 12:58 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Здравствуйте. Помогите, пожалуйста, составить формулу. Необходимо найти и заменить в ячейке столбца первую! часть текста (или весь текст) на буквы. Цифровой код необходимо заменить на буквенный (с этим я криво, но справился), задача усложняется тем, что после кода через точку может идти номер и его надо оставить Файл прилагаю.
Здравствуйте. Помогите, пожалуйста, составить формулу. Необходимо найти и заменить в ячейке столбца первую! часть текста (или весь текст) на буквы. Цифровой код необходимо заменить на буквенный (с этим я криво, но справился), задача усложняется тем, что после кода через точку может идти номер и его надо оставить Файл прилагаю. LSV
К сообщению приложен файл:
rrr.xls
(28.0 Kb)
Ответить
Сообщение Здравствуйте. Помогите, пожалуйста, составить формулу. Необходимо найти и заменить в ячейке столбца первую! часть текста (или весь текст) на буквы. Цифровой код необходимо заменить на буквенный (с этим я криво, но справился), задача усложняется тем, что после кода через точку может идти номер и его надо оставить Файл прилагаю. Автор - LSV Дата добавления - 04.08.2017 в 12:58
and_evg
Дата: Пятница, 04.08.2017, 13:03 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 481
Репутация:
83
±
Замечаний:
0% ±
Excel 2007
LSV , А из каких соображений ставятся та или иная буква и их количество?
LSV , А из каких соображений ставятся та или иная буква и их количество?and_evg
Ответить
Сообщение LSV , А из каких соображений ставятся та или иная буква и их количество?Автор - and_evg Дата добавления - 04.08.2017 в 13:03
LSV
Дата: Пятница, 04.08.2017, 13:15 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Каждому цифровому коду соответствует буквенный, например 68=aa
Каждому цифровому коду соответствует буквенный, например 68=aa LSV
Ответить
Сообщение Каждому цифровому коду соответствует буквенный, например 68=aa Автор - LSV Дата добавления - 04.08.2017 в 13:15
and_evg
Дата: Пятница, 04.08.2017, 13:17 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 481
Репутация:
83
±
Замечаний:
0% ±
Excel 2007
Каждому цифровому коду соответствует буквенный
А мы должны посредством телепатии об этом узнать?
Каждому цифровому коду соответствует буквенный
А мы должны посредством телепатии об этом узнать?and_evg
Ответить
Сообщение Каждому цифровому коду соответствует буквенный
А мы должны посредством телепатии об этом узнать?Автор - and_evg Дата добавления - 04.08.2017 в 13:17
LSV
Дата: Пятница, 04.08.2017, 13:20 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
and_evg , Я в таблице написал справа что на что менять, может не совсем корректно.
and_evg , Я в таблице написал справа что на что менять, может не совсем корректно.LSV
Ответить
Сообщение and_evg , Я в таблице написал справа что на что менять, может не совсем корректно.Автор - LSV Дата добавления - 04.08.2017 в 13:20
and_evg
Дата: Пятница, 04.08.2017, 13:21 |
Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 481
Репутация:
83
±
Замечаний:
0% ±
Excel 2007
без таблицы замены, только общий ответ. Формула на основе
=ЗАМЕНИТЬ()
без таблицы замены, только общий ответ. Формула на основе
=ЗАМЕНИТЬ()
and_evg
Ответить
Сообщение без таблицы замены, только общий ответ. Формула на основе
=ЗАМЕНИТЬ()
Автор - and_evg Дата добавления - 04.08.2017 в 13:21
InExSu
Дата: Пятница, 04.08.2017, 13:31 |
Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 650
Репутация:
96
±
Замечаний:
0% ±
Excel 2010, 365
Выделите нужный диапазон и ...
Sub ЗаменаМассомInExSu()
'для http://www.excelworld.ru/forum/2-34762-1#227565
Dim cell As Range
Масс_1 = Array ("68." , "17." , "8." , "33." )
Масс_2 = Array ("aa" , "bb" , "ccc" , "r" )
For Each cell In Selection
For i = 0 To UBound (Масс_1)
cell.Value = _
Replace (cell.Value, Масс_1(i), Масс_2(i))
If cell.Value = _
Replace (Масс_1(i), "." , "" ) Then _
cell.Value = Масс_2(i)
Next i
Next
End Sub
Выделите нужный диапазон и ...
Sub ЗаменаМассомInExSu()
'для http://www.excelworld.ru/forum/2-34762-1#227565
Dim cell As Range
Масс_1 = Array ("68." , "17." , "8." , "33." )
Масс_2 = Array ("aa" , "bb" , "ccc" , "r" )
For Each cell In Selection
For i = 0 To UBound (Масс_1)
cell.Value = _
Replace (cell.Value, Масс_1(i), Масс_2(i))
If cell.Value = _
Replace (Масс_1(i), "." , "" ) Then _
cell.Value = Масс_2(i)
Next i
Next
End Sub
InExSu
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Сообщение отредактировал InExSu - Пятница, 04.08.2017, 13:55
Ответить
Сообщение Выделите нужный диапазон и ... [vba]
Sub ЗаменаМассомInExSu()'для http ://www.excelworld.ru /forum /2-34762-1Dim 227565 cell As Range Масс_1 Масс_2 = Array("68.", "17.", "8.", "33.") For = Array("aa", "bb", "ccc", "r") Each cell In Selection For i To = 0 Масс_1 UBound(cell.Value ) _ = cell.Value Replace(i , Масс_1(i ), Масс_2(If )) cell.Value _ = i Replace(Масс_1(Then ), ".", "") _ cell.Value i = Масс_2(Next ) i NextEnd Sub undefined
[/vba] Автор - InExSu Дата добавления - 04.08.2017 в 13:31
_Boroda_
Дата: Пятница, 04.08.2017, 13:32 |
Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16888
Репутация:
6611
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
может не совсем корректно
Нууу, да, есть немного. Вам нужно было дать нам весь список. Примерно так, как я в файле сделал в диапазоне H1:I99 Тогда формулу можно так написать
=ЗАМЕНИТЬ(A2 ;1;ПОИСК(".";A2 &".");ВПР(--ЛЕВБ(A2 ;ПОИСК(".";A2 &".")-1);H$1:I$99 ;2;))
может не совсем корректно
Нууу, да, есть немного. Вам нужно было дать нам весь список. Примерно так, как я в файле сделал в диапазоне H1:I99 Тогда формулу можно так написать
=ЗАМЕНИТЬ(A2 ;1;ПОИСК(".";A2 &".");ВПР(--ЛЕВБ(A2 ;ПОИСК(".";A2 &".")-1);H$1:I$99 ;2;))
_Boroda_
К сообщению приложен файл:
rrr_1.xls
(36.5 Kb)
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение может не совсем корректно
Нууу, да, есть немного. Вам нужно было дать нам весь список. Примерно так, как я в файле сделал в диапазоне H1:I99 Тогда формулу можно так написать
=ЗАМЕНИТЬ(A2 ;1;ПОИСК(".";A2 &".");ВПР(--ЛЕВБ(A2 ;ПОИСК(".";A2 &".")-1);H$1:I$99 ;2;))
Автор - _Boroda_ Дата добавления - 04.08.2017 в 13:32
LSV
Дата: Пятница, 04.08.2017, 13:36 |
Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Спасибо, and_evg , Формула ЗАМЕНИТЬ меняет часть текста на нужный независимо от того что это за текст. Мне же нужно указать, ЕСЛИ перавя часть текстав ячейке ="68.", то заменить её на "аа" Не хватает знания формул в Excel
Спасибо, and_evg , Формула ЗАМЕНИТЬ меняет часть текста на нужный независимо от того что это за текст. Мне же нужно указать, ЕСЛИ перавя часть текстав ячейке ="68.", то заменить её на "аа" Не хватает знания формул в Excel LSV
Ответить
Сообщение Спасибо, and_evg , Формула ЗАМЕНИТЬ меняет часть текста на нужный независимо от того что это за текст. Мне же нужно указать, ЕСЛИ перавя часть текстав ячейке ="68.", то заменить её на "аа" Не хватает знания формул в Excel Автор - LSV Дата добавления - 04.08.2017 в 13:36
LSV
Дата: Пятница, 04.08.2017, 13:42 |
Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
_Boroda_ , Спасибо, большое. То что надо, буду разбираться.
_Boroda_ , Спасибо, большое. То что надо, буду разбираться.LSV
Ответить
Сообщение _Boroda_ , Спасибо, большое. То что надо, буду разбираться.Автор - LSV Дата добавления - 04.08.2017 в 13:42
LSV
Дата: Пятница, 04.08.2017, 13:44 |
Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
InExSu , спасибо, до макросов ещё не дошёл )
InExSu , спасибо, до макросов ещё не дошёл )LSV
Ответить
Сообщение InExSu , спасибо, до макросов ещё не дошёл )Автор - LSV Дата добавления - 04.08.2017 в 13:44