Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Массовая замена сразу нескольких значений на листе.
 
#1
22.03.2011 10:25:30
На листе в ячейках есть разные значения в виде: (7) (32) (19) и т.д.    
 
Их нужно заменить такким образом, например:  
 
(1) заменить на 26  
(7) заменить на 26  
(32) заменить на 26  
(8) заменить на 26  
(19) заменить на 19  
(4) заменить на 19  
(2) заменить на 58  
(193) заменить на 104  
(16) заменить на 104  
(95) заменить на 104  
(18) заменить на 9  
(2) заменить на 9  
 
Делать это через пункт "Найти и заменить" по одному значению очень долго.    
 
Как бы это сделать макросом, чтобы в нем можно было задавать несколько "заменить что" на несколько "заменить чем"
 
 
 
#2
22.03.2011 10:30:48
"11" заменится на "2626"?
 
 
 
#3
22.03.2011 10:35:16
Нет, число 11 будет в скобках (11) и должно замениться на укзываемые данные.
 
 
 
#4
22.03.2011 10:36:44
1. А зачем заменить по одному - делайте "заменить все" - все найденные (1) заменяться на 26 и т.п.  
 
2. А есть ли смысл писать макрос, ведь в нём нужно прописать все варианты замены - не дольше ли будет? Если операция будет повторяться - запишите макрорекордером сами!  
 
3. У Вас в примере для (2) есть на 58 и на 9 - ошибка?
 
 
 
#5
22.03.2011 10:45:03
{quote}{login=VDM}{date=22.03.2011 10:36}{thema=}{post}}У Вас в примере для (2) есть на 58 и на 9 - ошибка?{/post}{/quote}  
Да, это я ошиблась. Такого (повторяющихся значений) не будет.
 
 
 
#6
22.03.2011 10:46:00
{quote}{login=VDM}{date=22.03.2011 10:36}{thema=}{post}2. А есть ли смысл писать макрос, ведь в нём нужно прописать все варианты замены - не дольше ли будет? Если операция будет повторяться - запишите макрорекордером сами!{/post}{/quote}  
Эти варианты замены нужно будет делать каждый день, поэтому мне и нужен макрос, чтобы прописать в нем один раз и навсегда.
 
 
 
#7
22.03.2011 11:19:15
The_Prist, я же в первом сообщении написала свой пример. И спасибо за ваш вариант.
 
 
 
#8
22.03.2011 11:22:32
Sub zamena()  
Dim cell  
Dim rv As Range  
Set rv = Range("A2:B100") 'таблица соотвествий  
On Error Resume Next  
For Each cell In Selection 'перед началом выполнения выделить нужный диапазон  
If Not IsEmpty(cell) Then  
cell.Value = Application.WorksheetFunction.VLookup(cell.Value, rv, 2, 0)  
End If  
Next  
End Sub
 
 
 
#9
22.03.2011 11:22:44
The_Prist'у нужно было создать файл, вбить данные... А что - пускай работают и помогают, а мы сливки снимать...
 
 
 
#10
22.03.2011 13:13:04
Я поняла, спасибо. Учту на будущее.
 
 
 
#11
22.03.2011 13:24:23
Скажите пожалуйста, а кто это мне так помогает, а его имени не видно?    
 
Его сообщение в этой теме перед сообщением vikttur.
 
 
 
#12
22.03.2011 13:26:08
Это наш секретный сотрудник. Его никто не должен знать.
 
 
 
#13
22.03.2011 13:28:26
Отдельное ему БОЛЬШОЕ спасибо)
 
 
 
#14
16.02.2012 10:50:25
Пожалуйста, объясните для чайника.  
Есть страница экселя и с разными значениями в ячейках. Надо массово найти(по одному очень долго) и заменить, например значение 325 на 111, 258 на 222, 986 на 333 и тд. Одинаковых значений может быть несколько. Или просто массово найти все значения типа 325, 258, 986 и окрасить их ячейки в какой либо цвет, без замены самих значений.  
Спасибо.
 
 
 
#15
16.02.2012 10:59:35
Вы плохо читали тему ....с Вас файл.
 
 
 
#16
16.02.2012 11:08:52
{quote}{login=}{date=22.03.2011 11:22}{thema=}{post}Sub zamena()  
........................................  
cell.Value = Application.WorksheetFunction.VLookup(cell.Value, rv, 2, 0)  
........................................  
End Sub{/post}{/quote}  
создаётся впечатление, что вто это строка - cell.Value = Application.WorksheetFunction.VLookup(cell.Value, rv, 2, 0) - заменит данные которых нету в A2:B100 на #Н/Д, но при работе макроса всё нормально.  
в чём дело?  
может я должен прочитать про VALUE?  
(шась я понимаю макрос так что если он найдёт нужные для замены данные то нормально заменит их а если в в выделенном диапазоне будут данные которых нету в A2:B100 то они заменятся на #Н/Д ведь при формуле ВПР так и случится)
 
 
 
#17
16.02.2012 15:06:17
{quote}{login=Микки}{date=16.02.2012 10:59}{thema=}{post}Вы плохо читали тему ....с Вас файл.{/post}{/quote}  
С меня?
 
 
 
#18
16.02.2012 15:11:39
GabrielZ, помощи хотите? Или так, поговорить?
 
 
 
#19
16.02.2012 15:12:23
Нет, не напрягайтесь - за Вас сейчас кто-нибудь нарисует. :-)
 
 
 
#20
16.02.2012 15:17:04
START, я думаю, что в случае "не найдёт" будет ошибка, а на этот случай есть On Error Resume Next
 
 
 
#21
16.02.2012 17:24:13
в точку  
 
не обратил внимания на On Error Resume Next  
попробовал без него макрос ругается когда  в выделенном диапазоне есть данные которые отсутствуют на a2:b100  
 
спасибо
 
 
 
#22
20.02.2012 12:19:11
{quote}{login=vikttur}{date=16.02.2012 03:11}{thema=}{post}GabrielZ, помощи хотите? Или так, поговорить?{/post}{/quote}  
Конечно хочу помощи!
 
 
 
#23
20.02.2012 13:19:48
Да ни черта вы не хотите. <BR>Те, кто заинтересован в помощи (не халявной), прилагают к этому все усилия - объясняют, уточняют, показывают свою проблему в <STRONG>файле</STRONG>. От Вас же кроме "Есть страница экселя и с разными значениями в ячейках"... Где есть?!
 
 
 
#24
22.02.2012 15:43:32
Прошу прощения за недопонимание.  
в приложении файл.  
в графе B находятся разные значения. Необходимо натйти все значения к примеру 7781178866, 11178798, 16671877 и чтоб ячейки с ними окрасились в какой нибудь цвет, значения при этом можно не менять.    
Или если можно дополнить. Например нашлось значение в графе B8, B26 и B34.(в нашем примере это 159357)В этом случае надо сделать так что бы значения в яцейках C8, C26, C34 (в нашем примере это 0,0146 , 0,0245 и 0,0115 соответственно)просуммировать эти значения, и сумму выдать где нибудь в конце листа.  
Спасибо.
 
 
 
#25
22.02.2012 15:59:45
Вариант для "и сумму выдать где-нибудь" - сводная. Прочие вопросы о преобразовании данных и пр.пр. - в "Приемах" и "Поиске"... ;) -99875-
 
 
 
#26
22.02.2012 16:01:53
Может быть это нужно?  
 http://www.planetaexcel.ru/forum.php?thread_id=26105
 
 
 
#27
22.02.2012 17:17:08
не, там он хочут выносить все на отдельный лист, а мне надо чтоб на этом же. присоединил образец.
 
 
 
#28
02.10.2012 08:54:21
Расскажите и мне как сделать массовую замену. У меня есть массив (1 столбец), есть ещё один (два столбца), где каждому значению первого соответствует определенное значение во втором. Как сравнить два первых столбца и в первом массиве проставить соответствующие значения из второго массива.
 
 
 
Страницы: 1
Читают тему
Loading...