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

Вход

Регистрация

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

 

= Мир MS Excel/Разделить текст по ячейкам - Страница 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 2 из 2«12
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разделить текст по ячейкам (Формулы/Formulas)
Разделить текст по ячейкам
gling Дата: Суббота, 30.01.2016, 21:05 | Сообщение № 21
Группа: Друзья
Ранг: Старожил
Сообщений: 1506
Репутация: 374 ±
Замечаний: 0% ±

2010
по этому варианту тоже меняет все на даты

Вы внимательно читали сообщение №6? Откройте его и идите по порядку от -- к -- и все у Вас получится без дат. Предварительно используйте формулу предложенную Еленой в сообщении №15 и совет Копировать/вставить как значения.
А формула из Сообщения№2 тоже не подходит?


Сообщение отредактировал gling - Суббота, 30.01.2016, 21:08
 
Ответить
Сообщение
по этому варианту тоже меняет все на даты

Вы внимательно читали сообщение №6? Откройте его и идите по порядку от -- к -- и все у Вас получится без дат. Предварительно используйте формулу предложенную Еленой в сообщении №15 и совет Копировать/вставить как значения.
А формула из Сообщения№2 тоже не подходит?

Автор - gling
Дата добавления - 30.01.2016 в 21:05
Nic70y Дата: Суббота, 30.01.2016, 21:13 | Сообщение № 22
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3917
Репутация: 829 ±
Замечаний: 0% ±

Excel 2013
Давно предлагал симпатичную формулу...
К сообщению приложен файл: 58.13.xls(44Kb)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
СообщениеДавно предлагал симпатичную формулу...

Автор - Nic70y
Дата добавления - 30.01.2016 в 21:13
imperators Дата: Суббота, 30.01.2016, 21:13 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
СПАСИБО ВСЕМ ОГРОМНОЕ!!! Все получилось как надо! всем респект! УЕ! то что надо. всем благодарность!


Сообщение отредактировал imperators - Суббота, 30.01.2016, 21:17
 
Ответить
СообщениеСПАСИБО ВСЕМ ОГРОМНОЕ!!! Все получилось как надо! всем респект! УЕ! то что надо. всем благодарность!

Автор - imperators
Дата добавления - 30.01.2016 в 21:13
sv2014 Дата: Суббота, 30.01.2016, 22:58 | Сообщение № 24
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
imperators, добрый вечер, протестируйте макросы,кнопка test убирает точку,test1 меняет на ;


[vba]
Код
Sub test()
   Dim t$, i&, j&, x
For j = 3 To 7
  t = Range("B" & j): x = Split(t, ",")
With CreateObject("VBScript.RegExp")
  For i = 0 To UBound(x): .Pattern = "\.$"
      If .test(x(i)) Then x(i) = .Replace(x(i), "")
    Range("C3").Offset(j - 3, i) = x(i)
  Next
End With
Next
[/vba]
End Sub
К сообщению приложен файл: 0235149-1-30_01.xls(44Kb)
 
Ответить
Сообщениеimperators, добрый вечер, протестируйте макросы,кнопка test убирает точку,test1 меняет на ;


[vba]
Код
Sub test()
   Dim t$, i&, j&, x
For j = 3 To 7
  t = Range("B" & j): x = Split(t, ",")
With CreateObject("VBScript.RegExp")
  For i = 0 To UBound(x): .Pattern = "\.$"
      If .test(x(i)) Then x(i) = .Replace(x(i), "")
    Range("C3").Offset(j - 3, i) = x(i)
  Next
End With
Next
[/vba]
End Sub

Автор - sv2014
Дата добавления - 30.01.2016 в 22:58
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разделить текст по ячейкам (Формулы/Formulas)
Страница 2 из 2«12
Поиск:

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