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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск и замена в двух столбцах - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск и замена в двух столбцах (Формулы)
Поиск и замена в двух столбцах
alexhhl Дата: Пятница, 03.01.2014, 20:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте!
Пробовал искать на форуме и в интернете, ничего подходящего не нашел, самому не получается додумать, хотя должно как то не сложно быть.
Файл приложил...
1). Есть столбец А с цифрами, например: (0.3+, 0.4+, 0.5-);
2). В столбце В нахожу позицию точки;
3). В столбце С заменяю ее на запятую;
4). Далее в чем вопрос, нужно найти + и - и заменить их на пустоту. Вроде проблем нет, но мне надо, чтобы в итоге все цифры в одном столбце были в виде: (0,3, 0,4, 0,5).
К сообщению приложен файл: 3259460.xlsx (8.8 Kb)
 
Ответить
СообщениеЗдравствуйте!
Пробовал искать на форуме и в интернете, ничего подходящего не нашел, самому не получается додумать, хотя должно как то не сложно быть.
Файл приложил...
1). Есть столбец А с цифрами, например: (0.3+, 0.4+, 0.5-);
2). В столбце В нахожу позицию точки;
3). В столбце С заменяю ее на запятую;
4). Далее в чем вопрос, нужно найти + и - и заменить их на пустоту. Вроде проблем нет, но мне надо, чтобы в итоге все цифры в одном столбце были в виде: (0,3, 0,4, 0,5).
Автор - alexhhl
Дата добавления - 03.01.2014 в 20:27
Serge_007 Дата: Пятница, 03.01.2014, 20:36 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата alexhhl, 03.01.2014 в 20:27, в сообщении № 1
надо, чтобы в итоге все цифры в одном столбце были в виде: (0,3, 0,4, 0,5).
[vba]
Код
Function СЦЕПИТЬ_НЕСКОЛЬКО(Диапазон As Range, Optional Разделитель As String = ", ") As String
       Dim Ячейки As Range
           For Each Ячейки In Диапазон
               If Ячейки.Value <> "" Then
                   СЦЕПИТЬ_НЕСКОЛЬКО = СЦЕПИТЬ_НЕСКОЛЬКО & Trim(Ячейки.Value) & Разделитель
               End If
           Next
       СЦЕПИТЬ_НЕСКОЛЬКО = Left(СЦЕПИТЬ_НЕСКОЛЬКО, Len(СЦЕПИТЬ_НЕСКОЛЬКО) - Len(Разделитель))
End Function
[/vba]
К сообщению приложен файл: alexhhl.xls (39.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата alexhhl, 03.01.2014 в 20:27, в сообщении № 1
надо, чтобы в итоге все цифры в одном столбце были в виде: (0,3, 0,4, 0,5).
[vba]
Код
Function СЦЕПИТЬ_НЕСКОЛЬКО(Диапазон As Range, Optional Разделитель As String = ", ") As String
       Dim Ячейки As Range
           For Each Ячейки In Диапазон
               If Ячейки.Value <> "" Then
                   СЦЕПИТЬ_НЕСКОЛЬКО = СЦЕПИТЬ_НЕСКОЛЬКО & Trim(Ячейки.Value) & Разделитель
               End If
           Next
       СЦЕПИТЬ_НЕСКОЛЬКО = Left(СЦЕПИТЬ_НЕСКОЛЬКО, Len(СЦЕПИТЬ_НЕСКОЛЬКО) - Len(Разделитель))
End Function
[/vba]
Автор - Serge_007
Дата добавления - 03.01.2014 в 20:36
alexhhl Дата: Пятница, 03.01.2014, 20:40 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Большое спасибо! А куда это записывать?
 
Ответить
СообщениеБольшое спасибо! А куда это записывать?
Автор - alexhhl
Дата добавления - 03.01.2014 в 20:40
Serge_007 Дата: Пятница, 03.01.2014, 20:44 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
В стандартный модуль

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеВ стандартный модуль
Автор - Serge_007
Дата добавления - 03.01.2014 в 20:44
alexhhl Дата: Пятница, 03.01.2014, 21:47 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Вот еще как получилось сделать, может кому полезно будет.
К сообщению приложен файл: 4002653.xlsx (9.1 Kb)
 
Ответить
СообщениеВот еще как получилось сделать, может кому полезно будет.
Автор - alexhhl
Дата добавления - 03.01.2014 в 21:47
Serge_007 Дата: Пятница, 03.01.2014, 21:53 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
То, что Вы сделали можно повторить и без доп столбцов:
Код
=ЛЕВБ(ПОДСТАВИТЬ(A1;".";",");ДЛСТР(A1)-1)


Только где здесь
Цитата alexhhl, 03.01.2014 в 20:27, в сообщении № 1
в итоге все цифры в одном столбце были в виде: (0,3, 0,4, 0,5)
?!

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеТо, что Вы сделали можно повторить и без доп столбцов:
Код
=ЛЕВБ(ПОДСТАВИТЬ(A1;".";",");ДЛСТР(A1)-1)


Только где здесь
Цитата alexhhl, 03.01.2014 в 20:27, в сообщении № 1
в итоге все цифры в одном столбце были в виде: (0,3, 0,4, 0,5)
?!
Автор - Serge_007
Дата добавления - 03.01.2014 в 21:53
jakim Дата: Пятница, 03.01.2014, 22:02 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1202
Репутация: 313 ±
Замечаний: 0% ±

Excel 2010
Вся эта процедура достигается посредством "Ctrl+h" и заменой лишних ненужных знаков на нужные без формул.
Можно также применить формулу:

Код
=--SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1;".";",");"+";"");"-";"")
К сообщению приложен файл: 0608723.xlsx (9.5 Kb)


Сообщение отредактировал jakim - Пятница, 03.01.2014, 22:12
 
Ответить
Сообщение
Вся эта процедура достигается посредством "Ctrl+h" и заменой лишних ненужных знаков на нужные без формул.
Можно также применить формулу:

Код
=--SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1;".";",");"+";"");"-";"")
Автор - jakim
Дата добавления - 03.01.2014 в 22:02
alexhhl Дата: Суббота, 04.01.2014, 10:03 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо Вам ребята!!! =)
 
Ответить
СообщениеСпасибо Вам ребята!!! =)
Автор - alexhhl
Дата добавления - 04.01.2014 в 10:03
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск и замена в двух столбцах (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

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