перенос данные из столбцов в строки
plaha
Дата: Понедельник, 19.02.2018, 10:42 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Добрый день! подскажите, пожалуйста, как сделать максимально быстро, что данные из столбцов "Р" и далее перенести с добавлением строк в столбец "О" как показано в примере. На выходе должны быть именно данные, а не формулы
Добрый день! подскажите, пожалуйста, как сделать максимально быстро, что данные из столбцов "Р" и далее перенести с добавлением строк в столбец "О" как показано в примере. На выходе должны быть именно данные, а не формулы plaha
Сообщение отредактировал plaha - Понедельник, 19.02.2018, 11:08
Ответить
Сообщение Добрый день! подскажите, пожалуйста, как сделать максимально быстро, что данные из столбцов "Р" и далее перенести с добавлением строк в столбец "О" как показано в примере. На выходе должны быть именно данные, а не формулы Автор - plaha Дата добавления - 19.02.2018 в 10:42
abtextime
Дата: Понедельник, 19.02.2018, 10:43 |
Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010
А пример-то где?
Ответить
Сообщение А пример-то где? Автор - abtextime Дата добавления - 19.02.2018 в 10:43
Che79
Дата: Понедельник, 19.02.2018, 10:44 |
Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1649
Репутация:
306
±
Замечаний:
0% ±
2013 Win, 365 Mac
нет примера, не прицепился, проверьте по весу (не более 100 кб)
нет примера, не прицепился, проверьте по весу (не более 100 кб) Che79
Делай нормально и будет нормально!
Ответить
Сообщение нет примера, не прицепился, проверьте по весу (не более 100 кб) Автор - Che79 Дата добавления - 19.02.2018 в 10:44
plaha
Дата: Понедельник, 19.02.2018, 11:09 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Прикрепил
Ответить
Сообщение Прикрепил Автор - plaha Дата добавления - 19.02.2018 в 11:09
abtextime
Дата: Понедельник, 19.02.2018, 11:47 |
Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010
Задача не ясна. Вы заполняете столбец P и последующие, а столбец O должен формироваться автоматически? Если да, то по какому алгоритму? Не знаю, может быть я один не въезжаю?
Задача не ясна. Вы заполняете столбец P и последующие, а столбец O должен формироваться автоматически? Если да, то по какому алгоритму? Не знаю, может быть я один не въезжаю? abtextime
Ответить
Сообщение Задача не ясна. Вы заполняете столбец P и последующие, а столбец O должен формироваться автоматически? Если да, то по какому алгоритму? Не знаю, может быть я один не въезжаю? Автор - abtextime Дата добавления - 19.02.2018 в 11:47
sboy
Дата: Понедельник, 19.02.2018, 11:52 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Оффтоп:
может быть я один не въезжаю?
нет, Вы не одиноки
[offtop]может быть я один не въезжаю?
нет, Вы не одиноки sboy
Яндекс: 410016850021169
Ответить
Сообщение [offtop]может быть я один не въезжаю?
нет, Вы не одиноки Автор - sboy Дата добавления - 19.02.2018 в 11:52
plaha
Дата: Понедельник, 19.02.2018, 11:59 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
У меня есть некий массив данных, который мне нужно обработать. Задача - все заполненные столбцы от "Р" до бесконечности (порой доходит до 60) нужно перенести в столбец "О", чтобы в итоге получилось, как в этом примере. Количество добавляемых строк в каждом случае разное
У меня есть некий массив данных, который мне нужно обработать. Задача - все заполненные столбцы от "Р" до бесконечности (порой доходит до 60) нужно перенести в столбец "О", чтобы в итоге получилось, как в этом примере. Количество добавляемых строк в каждом случае разное plaha
Ответить
Сообщение У меня есть некий массив данных, который мне нужно обработать. Задача - все заполненные столбцы от "Р" до бесконечности (порой доходит до 60) нужно перенести в столбец "О", чтобы в итоге получилось, как в этом примере. Количество добавляемых строк в каждом случае разное Автор - plaha Дата добавления - 19.02.2018 в 11:59
abtextime
Дата: Понедельник, 19.02.2018, 12:14 |
Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010
Правильно ли я Вас понял - если в исходной строке данных в столбцах P... есть n разных значений, то должно в итоге получиться n строк, которые в столбцах A...N дублируются, а в столбце O - заливаются данные из столбцов P... ? Если да - уточняющий вопрос - в столбцах P... (в одной строке) значения могут повторяться или нет?
Правильно ли я Вас понял - если в исходной строке данных в столбцах P... есть n разных значений, то должно в итоге получиться n строк, которые в столбцах A...N дублируются, а в столбце O - заливаются данные из столбцов P... ? Если да - уточняющий вопрос - в столбцах P... (в одной строке) значения могут повторяться или нет? abtextime
Сообщение отредактировал abtextime - Понедельник, 19.02.2018, 12:15
Ответить
Сообщение Правильно ли я Вас понял - если в исходной строке данных в столбцах P... есть n разных значений, то должно в итоге получиться n строк, которые в столбцах A...N дублируются, а в столбце O - заливаются данные из столбцов P... ? Если да - уточняющий вопрос - в столбцах P... (в одной строке) значения могут повторяться или нет? Автор - abtextime Дата добавления - 19.02.2018 в 12:14
plaha
Дата: Понедельник, 19.02.2018, 13:56 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Если да - уточняющий вопрос - в столбцах P... (в одной строке) значения могут повторяться или нет?
Все верно, данные могут повторяться
Если да - уточняющий вопрос - в столбцах P... (в одной строке) значения могут повторяться или нет?
Все верно, данные могут повторятьсяplaha
Ответить
Сообщение Если да - уточняющий вопрос - в столбцах P... (в одной строке) значения могут повторяться или нет?
Все верно, данные могут повторятьсяАвтор - plaha Дата добавления - 19.02.2018 в 13:56
abtextime
Дата: Понедельник, 19.02.2018, 14:40 |
Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010
Сделать можно, макросом, но нужно какое-то мало-мальское время. Ждите, помогут.
Сделать можно, макросом, но нужно какое-то мало-мальское время. Ждите, помогут. abtextime
Ответить
Сообщение Сделать можно, макросом, но нужно какое-то мало-мальское время. Ждите, помогут. Автор - abtextime Дата добавления - 19.02.2018 в 14:40
plaha
Дата: Понедельник, 19.02.2018, 15:47 |
Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Спасибо! жду
Ответить
Сообщение Спасибо! жду Автор - plaha Дата добавления - 19.02.2018 в 15:47
sboy
Дата: Понедельник, 19.02.2018, 17:29 |
Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Sub plaha()
For r = Cells(Rows.Count, 15 ).End(xlUp).Row To 2 Step -1
If Not IsEmpty (Cells(r, 16 ).Value) Then
Set rR = Range(Cells(r, 16 ), Cells(r, Columns.Count).End(xlToLeft))
arr = rR.Value
Rows(r + 1 & ":" & r + rR.Count).Insert xlShiftDown
Cells(r + 1 , 15 ).Resize(rR.Count, 1 ) = Application.Transpose(arr)
Range(Cells(r + 1 , 1 ), Cells(r + rR.Count, 14 )).Value = Range(Cells(r, 1 ), Cells(r, 14 )).Value
rR.ClearContents
End If
Next
End Sub
Sub plaha()
For r = Cells(Rows.Count, 15 ).End(xlUp).Row To 2 Step -1
If Not IsEmpty (Cells(r, 16 ).Value) Then
Set rR = Range(Cells(r, 16 ), Cells(r, Columns.Count).End(xlToLeft))
arr = rR.Value
Rows(r + 1 & ":" & r + rR.Count).Insert xlShiftDown
Cells(r + 1 , 15 ).Resize(rR.Count, 1 ) = Application.Transpose(arr)
Range(Cells(r + 1 , 1 ), Cells(r + rR.Count, 14 )).Value = Range(Cells(r, 1 ), Cells(r, 14 )).Value
rR.ClearContents
End If
Next
End Sub
sboy
Яндекс: 410016850021169
Ответить
Сообщение [vba]
Sub plaha() For r = Cells(Rows.Count , 15).End(xlUp ).Row To 2 Step -1 If Not IsEmpty(Cells(r , 16).Value ) Then Set rR = Range(Cells(r , 16), Cells(r , Columns.Count ).End(xlToLeft )) arr = rR.Value Rows(r + 1 & ":" & r + rR.Count ).Insert xlShiftDown Cells(r + 1, 15).Resize(rR.Count , 1) = Application.Transpose(arr ) Range(Cells(r + 1, 1), Cells(r + rR.Count , 14)).Value = Range(Cells(r , 1), Cells(r , 14)).Value rR.ClearContents End If NextEnd Sub
[/vba] Автор - sboy Дата добавления - 19.02.2018 в 17:29
plaha
Дата: Понедельник, 19.02.2018, 17:45 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Спасибо! Подскажите, пожалуйста, как его применить?
Спасибо! Подскажите, пожалуйста, как его применить? plaha
Ответить
Сообщение Спасибо! Подскажите, пожалуйста, как его применить? Автор - plaha Дата добавления - 19.02.2018 в 17:45
sboy
Дата: Понедельник, 19.02.2018, 17:55 |
Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Самый простой вариант, в файл из моего сообщения, скопировать исходные данные и запустить макрос.
Самый простой вариант, в файл из моего сообщения, скопировать исходные данные и запустить макрос. sboy
Яндекс: 410016850021169
Ответить
Сообщение Самый простой вариант, в файл из моего сообщения, скопировать исходные данные и запустить макрос. Автор - sboy Дата добавления - 19.02.2018 в 17:55
plaha
Дата: Вторник, 20.02.2018, 10:05 |
Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Спасибо огромное! работает!!!
Спасибо огромное! работает!!! plaha
Ответить
Сообщение Спасибо огромное! работает!!! Автор - plaha Дата добавления - 20.02.2018 в 10:05