Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удаление последней запятой в строках таблицы
 
#1
19.03.2018 16:45:23
Всем день добрый!
В таблице из 5000 строк в некоторых строках в конце строки есть запятая. (Не во всех строках).
Запятые встречаются так же внутри строк. Вопрос: как удалить ТОЛЬКО последнюю запятую. Спасибо!
 
 
 
#2
19.03.2018 16:48:09
функцию ПОДСТАВИТЬ попробуйте
Изменено: Stics - 19.03.2018 16:52:41
 
 
 
#3
19.03.2018 16:48:36
Формулы ПравСимв(), ДлСтр(), Если(), ЛевСимв(). Соберите их в правильную кучу и получите результат.
Если автоматизировать бардак, то получится автоматизированный бардак.
 
 
 
#4
19.03.2018 16:51:17
Цитата
abobrov написал: как удалить
А как пробовали? Как задали? Как разрешено/запрещено?.. ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#5
19.03.2018 16:52:17
Добавить к тексту справа знак, которого нет в текстах, функцией ПОДСТАВИТЬ удалить запятую с этим символом, еще одной ПОДСТАВИТЬ удалитьдобавленный символ.
 
 
 
#6
19.03.2018 17:13:11
=ЕСЛИ(ПРАВБ(A1;1) = ",";ПСТР(A1;1;ДЛСТР(A1)-1);A1)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
19.03.2018 17:44:47
вариант UDF для файл-примера #2
Код
 Function vvv$(text$)
  If InStrRev(text, ",") Then vvv = StrReverse(Split(StrReverse(text), ",", 2)(1))
End Function
Изменено: кузя1972 - 19.03.2018 17:45:04
 
 
 
#8
20.03.2018 01:07:18
Код
Sub afdgh()
Dim a(), aStr() As String, i as long, rngStr as Range
Set rngStr = Sheets("Лист1").Range("A1") 'ячейка обрабатываемого столбца
i = rngStr.Column
Set rngStr = rngStr.CurrentRegion
Set rngStr = rngStr.Offset(, i - rngStr.Column).Resize(, 1)
a = rngStr.Value
ReDim aStr(LBound(a) To UBound(a), 1 To 1)
For i = 1 To UBound(a)
  aStr(i, 1) = Trim(a(i, 1))
  If Len(aStr(i, 1)) > 1 Then
    If Right(aStr(i, 1), 1) = "," Then aStr(i, 1) = Trim(Left(aStr(i, 1), Len(aStr(i, 1)) - 1))
  Else
    aStr(i, 1) = Replace(aStr(i, 1), ",", "")
  End If
Next
rngStr.Value = aStr
End Sub
Изменено: AAF - 20.03.2018 01:12:14
 
 
 
Страницы: 1
Наверх