Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поставить точку в столбце, если её там нет
 
#1
19.05.2016 11:01:27
Как можно сделать, чтобы во всех ячейках в столбце в конце текста появилась точка, но только при условии, что ее там еще нет?
 
 
 
#2
19.05.2016 11:02:40
=ПОДСТАВИТЬ(A1&".";"..";)
 
 
 
#3
19.05.2016 11:13:47
vikttur,если уже есть точка, то результат получится без точки
Не стреляйте в тапера - он играет как может.
 
 
 
#4
19.05.2016 11:15:37
тогда так =ПОДСТАВИТЬ(A1&".";"..";".")
Изменено: bedvit - 19.05.2016 11:15:54
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#5
19.05.2016 11:15:48
Спасибо.
Не дописал:
=ПОДСТАВИТЬ(A1&".";"..";)&"."
 
 
 
#6
19.05.2016 11:17:34
vikttur , так получится две точки :)
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#7
19.05.2016 11:31:43
bedvit,спасибо :) А есть ли способ просто применить применить формулу к одному столбцу? То есть без создания нового столбца с данной формулой и последующей заменой старого столбца на новый?
Изменено: catch222 - 19.05.2016 11:33:35
 
 
 
#8
19.05.2016 11:38:52
catch222, можно - макросом. Или через найти и заменить, если можно построить алгоритм замены для окончаний.
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#9
19.05.2016 11:57:57
В случаях, когда в тексте есть больше одной точки подряд не только в конце, но и в других частях текста - рекомендую использовать: =A1&ЕСЛИ(ПРАВСИМВ(A1;1)=".";;".") - добавляет точку только в конце строки, если её нет.  
Изменено: bedvit - 19.05.2016 16:43:58
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#10
19.05.2016 12:36:03
Цитата
так получится две точки :)
Точно... И подумать некогда...
 
 
 
#11
19.05.2016 21:26:04
Цитата
catch222 написал:
А есть ли способ просто применить применить формулу к одному столбцу? То есть без создания нового столбца с данной формулой
Есть. Вот он )
Код
Sub AddPoint()
Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To LastRow
        If Right(Cells(i, 1), 1) <> "." Then Cells(i, 1) = Cells(i, 1) & "."
    Next
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх