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

Вход

Регистрация

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

 

= Мир MS Excel/запятая после почтового индекса - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » запятая после почтового индекса (Формулы/Formulas)
запятая после почтового индекса
Archer Дата: Суббота, 16.02.2019, 05:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 40% ±

Excel 2003
Добрый день всем!
Проблема следующая: имеется столбец с почтовыми адресами в формате индекс - адрес.
Вопрос: как сделать. чтобы после индекса стояла запятая во всем столбце?
К сообщению приложен файл: 111111.xls(13.5 Kb)
 
Ответить
СообщениеДобрый день всем!
Проблема следующая: имеется столбец с почтовыми адресами в формате индекс - адрес.
Вопрос: как сделать. чтобы после индекса стояла запятая во всем столбце?

Автор - Archer
Дата добавления - 16.02.2019 в 05:33
krosav4ig Дата: Суббота, 16.02.2019, 05:42 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2139
Репутация: 892 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте.
в столбец рядом формулу
Код
=ЗАМЕНИТЬ(A1;7;;",")
скопировать результат и специальной вставкой вставить как значения в столбец A:A[offtop]
Добрый день всем!
ага, у меня тут 5:40 :)
[/offtop]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте.
в столбец рядом формулу
Код
=ЗАМЕНИТЬ(A1;7;;",")
скопировать результат и специальной вставкой вставить как значения в столбец A:A[offtop]
Добрый день всем!
ага, у меня тут 5:40 :)
[/offtop]

Автор - krosav4ig
Дата добавления - 16.02.2019 в 05:42
Nic70y Дата: Суббота, 16.02.2019, 08:25 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5502
Репутация: 1197 ±
Замечаний: 0% ±

ru13;10;03
вдруг правильно:
К сообщению приложен файл: 9297184.gif(18.7 Kb)


ЯД(poison) 41001841029809

Сообщение отредактировал Nic70y - Суббота, 16.02.2019, 08:25
 
Ответить
Сообщениевдруг правильно:

Автор - Nic70y
Дата добавления - 16.02.2019 в 08:25
Archer Дата: Суббота, 16.02.2019, 10:06 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 40% ±

Excel 2003
1 Извиняюсь за раннее обращение
2 Город может быть любой
Спасибо за помощь
 
Ответить
Сообщение1 Извиняюсь за раннее обращение
2 Город может быть любой
Спасибо за помощь

Автор - Archer
Дата добавления - 16.02.2019 в 10:06
alexa1965 Дата: Суббота, 16.02.2019, 10:30 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 142
Репутация: 6 ±
Замечаний: 0% ±

2003, 2010
Добрый день! А как вариант на вкладке "данные" в Анализе "Что если" задать в диспетчере сценариев проставку запятой после индекса для допустим трех строк, а затем расширить диапазон сценария на нужное количество строк.


Главное не быть балабастиком

Сообщение отредактировал alexa1965 - Суббота, 16.02.2019, 10:38
 
Ответить
СообщениеДобрый день! А как вариант на вкладке "данные" в Анализе "Что если" задать в диспетчере сценариев проставку запятой после индекса для допустим трех строк, а затем расширить диапазон сценария на нужное количество строк.

Автор - alexa1965
Дата добавления - 16.02.2019 в 10:30
krosav4ig Дата: Суббота, 16.02.2019, 17:11 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2139
Репутация: 892 ±
Замечаний: 0% ±

Excel 2007,2010,2013
до кучи макрос
[vba]
Код
Sub PlaceColon()
    With Me.UsedRange.Columns("A")
        .Value = Application.Replace(.Value, 7, 0, ",")
        .Replace ",,", ",", xlPart, , , , False, False
        .Replace ",", "", xlWhole, , , , False, False
        With Selection
            .Find "", .Cells, xlFormulas, 2, 1, 1, 0, 0
        End With
    End With
End Sub
[/vba]
К сообщению приложен файл: 6226194.xls(41.5 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедо кучи макрос
[vba]
Код
Sub PlaceColon()
    With Me.UsedRange.Columns("A")
        .Value = Application.Replace(.Value, 7, 0, ",")
        .Replace ",,", ",", xlPart, , , , False, False
        .Replace ",", "", xlWhole, , , , False, False
        With Selection
            .Find "", .Cells, xlFormulas, 2, 1, 1, 0, 0
        End With
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 16.02.2019 в 17:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » запятая после почтового индекса (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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