Страницы: 1
RSS
Разделить цифры и текст из одной ячейки в несколько разных ячеек
 
Друзья, подскажите, пожалуйста, как мне это сделать.
В одной ячейке вот такой текст:
200 - Бувакин А.Н.
    3 200 - Аглиуллин И.А(внес) .
    10 000 - Раманад. (внес)
    6700-Трубицын  Андрей(внес)
Нужно, чтобы каждая цифра была в отдельной ячейке и относящийся к этой цифре текст тоже был в своей отдельной ячейке:
200Бувакин А,Н
3200Аглиуллин И.А
10000Раманад
6700Трубицын  Андрей
Подскажите, пожалуйста, как это сделать?
Изменено: Sophya - 12.12.2017 18:21:19 (уточнения)
 
Каждая цифра? Или число?
А в идеале- прикрепите пример.
Изменено: Dyroff - 12.12.2017 19:01:54
Нужно бежать со всех ног, чтобы только оставаться на месте, а чтобы куда-то попасть, надо бежать как минимум вдвое быстрее!
 
Число) Пример сейчас попробую скинуть. Я с телефона, не очень удобно
Изменено: Sophya - 12.12.2017 19:45:51
 
Не получается пример скинуть.
Суть в том, что каждая сумма (т.е число) должна быть в отдельной ячейке. А пояснение к этой сумме в своей отдельной ячейке
Изменено: Sophya - 13.12.2017 00:04:41
 
Вот пример
 
Код
Sub ChisloText()
Dim i As Integer
Dim arr
  arr = Split(Range("A3"), Chr(10))
  For i = 0 To UBound(arr)
    Cells(i + 8, 1) = Trim(Split(arr(i), "-")(0))
    Cells(i + 8, 2) = Trim(Split(Split(arr(i), "-")(1), "(")(0))
  Next
End Sub
 
Спасибо за отклик. Поскольку я не очень продвинутый пользователь по части макросов, у меня не получилось.
Вставила код в VBA, поставила в листе все галочки, чтобы макросы в нем работали.
Навожу на ячейку, выбираю этот макрос, - не работает. Подскажите, пожалуйста, что я не так делаю?
Ниже прикладываю скрины
 
нажимаете на заклинание смотрите результат
Лень двигатель прогресса, доказано!!!
 
Вот скрины

https://yadi.sk/i/9LPxOotF3QZpHV
https://yadi.sk/i/O-e1RdDh3QZpK2
 
Сергей, спасибо)
Можете научить применять это заклинание  для множества ячеек?
Чтобы я могла этим пользоваться долгие годы? ))))
 
Sophya, без VBA:
Вкладка "Данные" - Работа с данными - Текст по столбцам
 
... а еще проверить соответствие суммы в ст. Е и откорректировать пропущенную первую цифру (яч. F24, F26, F27, F31, F32)!
Изменено: Казанский - 13.12.2017 09:51:52
 
Цитата
Sophya написал:
Можете научить применять это заклинание  для множества ячеек?
не эт к Kuzmichу, я на на эти руны смотрю только, делать не умею
Лень двигатель прогресса, доказано!!!
 
kacugu  так он делит все слова (до каждого пробела) и получается куча столбцов.
 
Цитата
Сергей написал:
не эт к  Kuzmichу , я на на эти руны смотрю только, делать не умею
У вас же получилось применить макрос к ячейке, а у меня нет. Что я не так делаю?
Посмотрите скрины
https://yadi.sk/i/9LPxOotF3QZpHV
https://yadi.sk/i/O-e1RdDh3QZpK2
Изменено: Sophya - 13.12.2017 09:59:53
 
Непонятен конечный желаемый результат из "другого примера". Куда конкретно должны попасть данные после обработки? Должны быть размножены строки? В ту же строку? Куда несколько чисел и несколько описаний должны попасть, например, после обработки строки 6 примера? Покажите в файле.
Кому решение нужно - тот пример и рисует.
 
Пытливый , первый раз обращаюсь за помощью на форум ) исправлюсь
Посмотрите пример во вложении, понятен ли он?
На одном листе исходная таблица.
На другом - показан желаемый результат на примере нескольких ячеек. Нужно, чтобы такой результат был со всеми ячейками ( не только с теми, что я показала, а со всеми, которые есть на листе).
Данные после обработки попадают в пустые строки, которые добавляются после исходной ячейки.
По строке 6 показала. Так понятно?
На примере показан одни месяц май.
Таких месяцев у меня много. т.е нужно, чтобы можно было обработать таким же образом данные на других листах за другие месяцы других годов.

Все ли вот так понятно?
 
Т.е. надо оставить и исходную строку и добавить новые? Между суммой и описанием разделитель может быть пробел/дефис, или что-то еще?
Изменено: Пытливый - 13.12.2017 10:56:47
Кому решение нужно - тот пример и рисует.
 
Если можно удалить исходную строку, то лучше удалить, потому что потом я ее все равно вручную буду удалять.
Получается, если удаляется исходная строка, на новые строки должна распространиться дата, которая указана в исходной строке и слово "приход" (в примере показала)

"Между суммой и описанием разделитель может быть пробели/дефис, или что-то еще?"
- не нужно.  
 
Sophya,
На листе "вот так сейчас" в строке 18 сумма 6700 без ФИО, почему?
И будет ли такое в дальнейшем?
 
KuzmichТак будет вдальнейшем. Это упущение человека, который ведет учет.  
Изменено: Sophya - 13.12.2017 12:33:08
 
Sophya,
Пробуйте. Находясь на листе "вот так сейчас", запустите макрос
Код
Sub ChisloText()
Dim i As Long
Dim j As Integer
Dim iLastRow As Long
Dim arr
   iLastRow = Cells(Rows.Count, "F").End(xlUp).Row
   Range("F1:F" & iLastRow).Replace What:="-", Replacement:=" "
  For i = iLastRow To 1 Step -1
    If Cells(i, "F") <> "" Then
       arr = Split(Cells(i, "F"), Chr(10))
      For j = 0 To UBound(arr)
       If arr(j) <> "" Then
        Rows(i + j + 1).Insert
        Cells(i + j + 1, "E") = Trim(Split(arr(j), " ", 2)(0))
        If Split(arr(j), " ", 2)(1) <> "" Then
          Cells(i + j + 1, "F") = Trim(Split(Split(arr(j), " ", 2)(1), "(")(0))
        Else
          Cells(i + j + 1, "F") = ""
        End If
        Rows(i + 1).AutoFit
       End If
      Next
        Rows(i).Delete
    End If
  Next
End Sub
Удачи!
 
Kuzmich спасибо вам огромное!
Работает. Только даты не переносятся. В новых строках нет дат. Это можно сделать?
Нужно, чтобы на новые строки  распространялась дата, которая указана в исходной строке
(выделила синим цветом на листе "вот так нужно")
 
Цитата
В новых строках нет дат. Это можно сделать?
Добавьте в код строку после строки Rows(i + j + 1).Insert
Код
Range("A" & i & ":D" & i).Copy Cells(i + j + 1, 1)
 
Ну и я свое творение донесу:
Скрытый текст

Открываете прилагаемый файл, активируете лист вот так сейчас(2), давите Alt+F8, выбираете макрос (единственный в книге) с названием T_358, давите выполнить.
Смотрите на результат - дальше по обстоятельствам, устраивает если - ура, не устраивает если - то не очень. :)
Кому решение нужно - тот пример и рисует.
 
Работает и все получилось, результат нужный)
Когда вставила в лист данные другого месяца, - макрос не сработал. Почему такое может быть?

Цитата
Kuzmich написал: Добавьте в код строку...
Да, так работает )))) Спасибо вам огромное ) очень благодарна и признательна за помощь ))))
 
Kuzmich
Посмотрите, пожалуйста Лист 1. Почему третий раз на других данных, не получается макрос запустить?
Два раза получилось, третий - нет.  
 
Потому, что в примере, под который рисуем макросы, данные расположены в столбцах А-F, а не как в этом файле.
Кому решение нужно - тот пример и рисует.
 
Исправила - все работает!
Супер!!! Спасибо ))))
От себя могу предложить помощь в фин.анализе, расчете прибыли-убытков.
Или может, вам в Самаре что понадобится, - чем смогу помогу)
Страницы: 1
Читают тему
Наверх