Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как перенести содержимое одной ячейки в несколько разных?
 
#1
31.03.2021 16:56:10
Всем привет! Есть задача. Нужна помощь.
Красным это вот как есть инфо, а зеленым как нужно.
Как  можно из одной ячейки перенести  задачи WEB-1111 и WEB-2222 (в красной таблице они с нового абзаца, может как-то эту особенность расположения в ячейке можно использовать для перенесения) в две разных ячейки?
При этом, надо чтобы было как в зеленой таблице, то есть в отдельных столбцах номер задачи и описание.
Может есть какие-то формулы? Просто большой объем данных надо перенести(
Скрытый текст

Во вложении  
 
 
 
#2
31.03.2021 17:30:18
Elya73, это только макросом...но логика не понятная немного
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
31.03.2021 17:43:08
В формулах я не силен макросом можно. Только не понятно по какому условию вы часы разделили
 
 
 
#4
31.03.2021 17:45:26
Это не так важно, часы можно не  делить. Можно оставить как в красной.
Важно перенести номер задачи и описание в разные ячейки как в зеленой таблице.
 
 
 
#5
31.03.2021 17:57:08
Elya73, как понял - атк сделал
Код
 Sub mrshkei()
Dim arr, i As Long, arr2, n As Long, arr3
ReDim arr3(1 To 100000, 1 To 4): k = 1
arr = Split(Range("H2"), Chr(10))
arrr = Range("H2:J2") ' диапазон с данными
For n = LBound(arrr) To UBound(arrr)
For i = LBound(arr) To UBound(arr)
x = arr(i)
    arr3(k, 1) = Left(x, InStr(x, " ") - 1)
    arr3(k, 2) = Mid(arr(i), InStr(x, " ") + 1, (InStr(x, " -") - InStr(x, " ")) - 1)
    arr3(k, 3) = Right(x, Len(x) - InStr(x, " -") - 1)
    arr3(k, 4) = arrr(n, 3)
    k = k + 1
Next i

Next n
Range("A2").Resize(UBound(arr3), 4) = arr3
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#6
31.03.2021 18:08:19
Цитата
перенести номер задачи и описание в разные ячейки как в зеленой таблице.
Может так
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, "H").End(xlUp).Row
 Range("A2:B" & 2 * iLastRow).ClearContents
  For i = 2 To iLastRow
      Cells(2 * i - 2, "A") = Split(Split(Cells(i, "H"), Chr(10))(0), " ")(0)
      Cells(2 * i - 2, "B") = Split(Split(Cells(i, "H"), Chr(10))(0), " ", 2)(1)
      Cells(2 * i - 1, "A") = Split(Split(Cells(i, "H"), Chr(10))(1), " ")(0)
      Cells(2 * i - 1, "B") = Split(Split(Cells(i, "H"), Chr(10))(1), " ", 2)(1)
  Next
End Sub
Изменено: Kuzmich - 31.03.2021 20:47:28
 
 
 
Страницы: 1
Наверх