Здравствуйте! Пробовал искать на форуме и в интернете, ничего подходящего не нашел, самому не получается додумать, хотя должно как то не сложно быть. Файл приложил... 1). Есть столбец А с цифрами, например: (0.3+, 0.4+, 0.5-); 2). В столбце В нахожу позицию точки; 3). В столбце С заменяю ее на запятую; 4). Далее в чем вопрос, нужно найти + и - и заменить их на пустоту. Вроде проблем нет, но мне надо, чтобы в итоге все цифры в одном столбце были в виде: (0,3, 0,4, 0,5).
Здравствуйте! Пробовал искать на форуме и в интернете, ничего подходящего не нашел, самому не получается додумать, хотя должно как то не сложно быть. Файл приложил... 1). Есть столбец А с цифрами, например: (0.3+, 0.4+, 0.5-); 2). В столбце В нахожу позицию точки; 3). В столбце С заменяю ее на запятую; 4). Далее в чем вопрос, нужно найти + и - и заменить их на пустоту. Вроде проблем нет, но мне надо, чтобы в итоге все цифры в одном столбце были в виде: (0,3, 0,4, 0,5).alexhhl
надо, чтобы в итоге все цифры в одном столбце были в виде: (0,3, 0,4, 0,5).
[vba]
Код
Function СЦЕПИТЬ_НЕСКОЛЬКО(Диапазон As Range, Optional Разделитель As String = ", ") As String Dim Ячейки As Range For Each Ячейки In Диапазон If Ячейки.Value <> "" Then СЦЕПИТЬ_НЕСКОЛЬКО = СЦЕПИТЬ_НЕСКОЛЬКО & Trim(Ячейки.Value) & Разделитель End If Next СЦЕПИТЬ_НЕСКОЛЬКО = Left(СЦЕПИТЬ_НЕСКОЛЬКО, Len(СЦЕПИТЬ_НЕСКОЛЬКО) - Len(Разделитель)) End Function
надо, чтобы в итоге все цифры в одном столбце были в виде: (0,3, 0,4, 0,5).
[vba]
Код
Function СЦЕПИТЬ_НЕСКОЛЬКО(Диапазон As Range, Optional Разделитель As String = ", ") As String Dim Ячейки As Range For Each Ячейки In Диапазон If Ячейки.Value <> "" Then СЦЕПИТЬ_НЕСКОЛЬКО = СЦЕПИТЬ_НЕСКОЛЬКО & Trim(Ячейки.Value) & Разделитель End If Next СЦЕПИТЬ_НЕСКОЛЬКО = Left(СЦЕПИТЬ_НЕСКОЛЬКО, Len(СЦЕПИТЬ_НЕСКОЛЬКО) - Len(Разделитель)) End Function