Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Большой столбец в маленькие
 
#1
22.11.2019 09:37:47
Доброго времени суток! Есть необходимость разбить большой столбик в маленькие.
Подскажите пожалуйста как это быстро можно сделать?
Файл прикрепляю ниже, там два листа. На одном листе образец в каком виде данные а на втрором как надо сделать.
Прошу помощи так как данных очень много вручную крайне долго всё переносить.
 
 
 
#2
22.11.2019 09:51:02
Доброе время суток
Вариант на Power Query
 
 
 
#3
22.11.2019 09:54:20
еще вариант формулой в А1 на листе как надо и растянуть вправо и вниз
Код
=ЕСЛИ(СТРОКА()>20;"стоп";ИНДЕКС('Что есть'!$A:$A;СТРОКА()+20*(СТОЛБЕЦ(A1)-1)))
Лень двигатель прогресса, доказано!!!
 
 
 
#4
22.11.2019 09:55:50
Так?
 
 
 
#5
22.11.2019 10:56:26
Да, все решения прекрасны! Спасибо! А подскажите можно ли как то сделать регулировку по количестве столбиков и их длинне?
 
 
 
#6
22.11.2019 12:29:06
Цитата
сделать регулировку по количестве столбиков и их длинне?
Меняете в макросе Kol_vo = 20
Код
Sub Razbienie()
Dim i As Long
Dim iLastRow As Long
Dim j As Long
Dim arr
Dim arr_n
Dim Kol_vo As Long
Dim n As Long
  Kol_vo = 20
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 n = Int(iLastRow / Kol_vo) + 1
 arr = Range("A1:A" & iLastRow).Value
 ReDim arr_n(1 To Kol_vo, 1 To n)
  For j = 1 To UBound(arr_n, 2)
    For i = 1 To UBound(arr_n)
      If (j - 1) * Kol_vo + i <= iLastRow Then
        arr_n(i, j) = arr((j - 1) * Kol_vo + i, 1)
      End If
    Next
  Next
  With Worksheets("Как надо")
    .Cells.Clear
    .Range("A1").Resize(Kol_vo, n) = arr_n
  End With
End Sub
 
 
 
Страницы: 1
Наверх