Добрый день всем! Проблема следующая: имеется столбец с почтовыми адресами в формате индекс - адрес. Вопрос: как сделать. чтобы после индекса стояла запятая во всем столбце?
Добрый день всем! Проблема следующая: имеется столбец с почтовыми адресами в формате индекс - адрес. Вопрос: как сделать. чтобы после индекса стояла запятая во всем столбце?Archer
Добрый день! А как вариант на вкладке "данные" в Анализе "Что если" задать в диспетчере сценариев проставку запятой после индекса для допустим трех строк, а затем расширить диапазон сценария на нужное количество строк.
Добрый день! А как вариант на вкладке "данные" в Анализе "Что если" задать в диспетчере сценариев проставку запятой после индекса для допустим трех строк, а затем расширить диапазон сценария на нужное количество строк.alexa1965
Главное не быть балабастиком
Сообщение отредактировал alexa1965 - Суббота, 16.02.2019, 10:38
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]
до кучи макрос [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