Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Разделение столбца по кол-ву записей. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разделение столбца по кол-ву записей. (Формулы/Formulas)
Разделение столбца по кол-ву записей.
flager Дата: Вторник, 06.09.2016, 16:47 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добррый день, форумчане!
Есть к примеру, один столбец с тысячами строк надо разделить этот столбец на столбцы по 15тыс. строк в каждой?
руками делить муторно, есть какой то спомоб это решить?
 
Ответить
СообщениеДобррый день, форумчане!
Есть к примеру, один столбец с тысячами строк надо разделить этот столбец на столбцы по 15тыс. строк в каждой?
руками делить муторно, есть какой то спомоб это решить?

Автор - flager
Дата добавления - 06.09.2016 в 16:47
krosav4ig Дата: Вторник, 06.09.2016, 17:13 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel 2007, 2013
Код
=ИНДЕКС($A:$A;(СТОЛБЕЦ()-2)*15000+СТРОКА())


(_)Õvõ(_)
 
Ответить
Сообщение
Код
=ИНДЕКС($A:$A;(СТОЛБЕЦ()-2)*15000+СТРОКА())

Автор - krosav4ig
Дата добавления - 06.09.2016 в 17:13
Szekerfehesvar Дата: Среда, 07.09.2016, 17:10 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 6 ±
Замечаний: 20% ±

Excel 2013
нажимаете Alt+F11 - Insert(в верхней панели инструментов) - Module
Копируйте туда:
[vba]
Код
Function bukva(ByVal col As Long) As String
On Error Resume Next
bukva = Application.ConvertFormula("r1c" & col, xlR1C1, xlA1)
bukva = Replace(Replace(Mid(bukva, 2), "$", ""), "1", "")
End Function
Sub aaa()
s = Cells(Rows.Count, 1).End(xlUp).Row
a = 15000
For n = 1 To s Step a
Range("A" & n & ":A" & n + a).Copy
c = bukva(Round((n + a) / a) + 1)
Range(c & 1).Select
ActiveSheet.Paste
Next
End Sub
[/vba]

Решение подразумевает, что искомый столбец - это А.
В итоге в столбцы с В и далее будут проставляться по 15000(переменная "а") строк с столбца А.
Вариант действует с любым количеством строк, чтобы изменить количество строк в итоговых столбцах - измените переменную "а"
[moder]Для кодов используйте кнопку #[/moder]


Сообщение отредактировал Pelena - Среда, 07.09.2016, 17:21
 
Ответить
Сообщениенажимаете Alt+F11 - Insert(в верхней панели инструментов) - Module
Копируйте туда:
[vba]
Код
Function bukva(ByVal col As Long) As String
On Error Resume Next
bukva = Application.ConvertFormula("r1c" & col, xlR1C1, xlA1)
bukva = Replace(Replace(Mid(bukva, 2), "$", ""), "1", "")
End Function
Sub aaa()
s = Cells(Rows.Count, 1).End(xlUp).Row
a = 15000
For n = 1 To s Step a
Range("A" & n & ":A" & n + a).Copy
c = bukva(Round((n + a) / a) + 1)
Range(c & 1).Select
ActiveSheet.Paste
Next
End Sub
[/vba]

Решение подразумевает, что искомый столбец - это А.
В итоге в столбцы с В и далее будут проставляться по 15000(переменная "а") строк с столбца А.
Вариант действует с любым количеством строк, чтобы изменить количество строк в итоговых столбцах - измените переменную "а"
[moder]Для кодов используйте кнопку #[/moder]

Автор - Szekerfehesvar
Дата добавления - 07.09.2016 в 17:10
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разделение столбца по кол-ву записей. (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!