Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
удаление символов
 
#1
28.12.2011 12:43:50
есть символ  \  он встречается во всех ячейках столбца по нескольку раз, как его удалить только, с конца текста в ячейке, при этом оставив в середине, на конце он может встречаться до 4х раз подряд, а может и вообще не быть
 
 
 
#2
28.12.2011 12:52:01
{quote}{login=komprem}{date=28.12.2011 12:43}{thema=удаление символов}{post}есть символ  \  он встречается во всех ячейках столбца по нескольку раз, как его удалить только, с конца текста в ячейке, при этом оставив в середине, на конце он может встречаться до 4х раз подряд, а может и вообще не быть{/post}{/quote}  
Мо быть так - ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")\";")";1);")\";")";1);")\";")";1) ... ;)  
-56501-
 
 
 
#3
28.12.2011 13:00:08
А не пойдет так: ctrl+h, найти ")*", заменить ")"?
Я сам - дурнее всякого примера! ...
 
 
 
#4
28.12.2011 18:21:21
udf  
Function del_end(d As Range) As String  
del_end = StrReverse(Replace(StrReverse(d), "\", "", 1, 1))  
End Function
 
 
 
#5
28.12.2011 18:32:01
Function Del_Slash(Rng As Range) As String  
Dim i&  
   For i = Len(Rng) To 1 Step -1  
       If Mid(Rng, i, 1) <> "\" Then  
           Del_Slash = Left(Rng, i)  
           Exit Function  
       End If  
   Next i  
End Function  
 
 
см. файл
 
 
 
#6
28.12.2011 18:55:05
Sub RemoveAllLastSlash()  
   Dim Cell As Range, Txt As String  
   For Each Cell In Selection.Cells  
       Txt = RTrim(Cell.Formula)  
       If Right(Txt, 1) = "\" Then  
           Do  
               Txt = RTrim(Left(Txt, Len(Txt) - 1))  
           Loop While Right(Txt, 1) = "\"  
           Cell.Formula = Txt  
       End If  
   Next  
End Sub
 
 
 
#7
29.12.2011 01:10:24
=ЛЕВСИМВ(A1;ДЛСТР(A1)-ЕСЛИ(ЛЕВСИМВ(ПРАВСИМВ(A1;4);2)="\\";4;3))&ПОДСТАВИТЬ(ПРАВСИМВ(A1;ЕСЛИ(ЛЕВСИМВ(ПРАВСИМВ(A1;4);2)="\\";4;3));"\";)
 
 
 
Страницы: 1
Наверх