Архив рубрики: Работа с текстом

Function delcr2000(r As Range) Dim arr() As String ReDim arr(200) For i = 1 To Len(r) arr(i) = Mid(r, i, 1) If Mid(r, i, 1) = » » Then arr(i) = » » If Mid(r, i, 1) = Chr(10) Then Продолжить чтение Удаление символа новой строки→