Разделение столбца по кол-ву записей.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разделение столбца по кол-ву записей. (Формулы/Formulas)

flager

Дата: Вторник, 06.09.2016, 16:47 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

Ответить

krosav4ig

Дата: Вторник, 06.09.2016, 17:13 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Код

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разделение столбца по кол-ву записей. (Формулы/Formulas)

Страница 1 из 1
1