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

Вход

Регистрация

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

 

= Мир MS Excel/Как разбить один столбцев несколько равных? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как разбить один столбцев несколько равных? (Формулы/Formulas)
Как разбить один столбцев несколько равных?
AdwordsDirect Дата: Пятница, 02.06.2017, 18:01 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день, у меня есть столбец А с неизвестным количеством ячеек, over 100500.
Как мне его поделить на 970 ячеек каждый и раскинуть каждые 970 ячеек в разный столбец?
хэлп
 
Ответить
СообщениеДобрый день, у меня есть столбец А с неизвестным количеством ячеек, over 100500.
Как мне его поделить на 970 ячеек каждый и раскинуть каждые 970 ячеек в разный столбец?
хэлп
Автор - AdwordsDirect
Дата добавления - 02.06.2017 в 18:01
AlexM Дата: Пятница, 02.06.2017, 18:33 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Изучайте
и
Читайте и соблюдайте


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Пятница, 02.06.2017, 18:35
 
Ответить
СообщениеИзучайте
и
Читайте и соблюдайте
Автор - AlexM
Дата добавления - 02.06.2017 в 18:33
Sandor Дата: Пятница, 02.06.2017, 21:17 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: -4 ±
Замечаний: 0% ±

Excel 2010
так подойдетт?

[vba]
Код
Sub zadachka()
Set tsh = Worksheets(1)
n = WorksheetFunction.CountA(tsh.Range("A:A"))
m = 1
For i = 970 To n Step 970
m = m + 1
For k = 1 To 970
tsh.Cells(k, m).Value = tsh.Cells(i + k, 1).Value
Next k
Next i
line1:
tsh.Range("A971:A" & n).ClearContents
End Sub
[/vba]
 
Ответить
Сообщениетак подойдетт?

[vba]
Код
Sub zadachka()
Set tsh = Worksheets(1)
n = WorksheetFunction.CountA(tsh.Range("A:A"))
m = 1
For i = 970 To n Step 970
m = m + 1
For k = 1 To 970
tsh.Cells(k, m).Value = tsh.Cells(i + k, 1).Value
Next k
Next i
line1:
tsh.Range("A971:A" & n).ClearContents
End Sub
[/vba]
Автор - Sandor
Дата добавления - 02.06.2017 в 21:17
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как разбить один столбцев несколько равных? (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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