Перемешать случайным образом данные в каждой строке
Есть лист Excel в котором столбцы E, F, G, H. Можно ли как-то перемешать эти столбцы случайным образом? Т.е. допустим было так:
ans1 ans2 ans3 ans4 Сигнала Свистка Салюта Поцелуя Сетка План Бредень Динамит шар цилиндр конус пирамида а стало так:
ans2 ans4 ans1 ans3 Свистка Поцелуя Сигнала Салюта План Динамит Сетка Бредень цилиндр пирамида шар конус Отслеживать
8,404 3 3 золотых знака 18 18 серебряных знаков 24 24 бронзовых знака
задан 4 мар 2018 в 20:01
1,063 15 15 серебряных знаков 25 25 бронзовых знаков
Т.е. содержимое этих столбцов перемешать случайным образом.
4 мар 2018 в 20:16
2 ответа 2
Сортировка: Сброс на вариант по умолчанию
Макросом, тасование Фишера — Йетса:
Sub Shuffle() ' Тасование столбцов целиком Dim Tmp As Range Dim V As Variant Dim I As Integer Dim J As Integer Dim Cols As Variant Cols = Array(Range("E:E"), Range("F:F"), Range("G:G"), Range("H:H")) For I = 3 To 1 Step -1 J = Int((I + 1) * Rnd) Set Tmp = Cols(J) V = Tmp.Value Cols(J).Value = Cols(I).Value Cols(I).Value = V Next I End Sub Sub Shuffle() ' Тасование столбцов построчно Dim R As Long Dim J As Integer Dim Tmp As Variant R = 1 While (Not IsEmpty(Cells(R, 5))) For I = 3 To 1 Step -1 J = Int((I + 1) * Rnd) + 5 Tmp = Cells(R, J).Value Cells(R, J).Value = Cells(R, I + 5).Value Cells(R, I + 5).Value = Tmp Next I R = R + 1 Wend End Sub Отслеживать
ответ дан 5 мар 2018 в 5:12
6,161 3 3 золотых знака 20 20 серебряных знаков 38 38 бронзовых знаков
Чуть чуть не то что мне нужно. Мне нужно не просто столбцы целиком в случайном порядке перемешать, а данные во всех столбцах. Например есть столбцы E, F, G,H и первая строчка в этих столбцах. Нужно в этой строчке перемешать данные, также во второй и т.д.
5 мар 2018 в 5:39
Обновил ответ, отрабатывает до первой пустой строки в столбце E
5 мар 2018 в 6:11
Спасибо большое.
5 мар 2018 в 6:27
У меня 35 тысяч строк и для таких больших данных вылезает ошибка Run-time erroe ‘6’: Overflow на строчке R = R + 1
5 мар 2018 в 6:39
Должно помочь Dim R As Long
5 мар 2018 в 6:43
Можно так (перемешать целиком столбцы/строки). Обложите свои данные случайными значениями функции =СЛЧИС() (или =RAND() ) как ниже на примере (диапазон начинается со строки 1 и со столбца A, к примеру).
0,340428874 0,076703163 0,807499996 0,919554717 0,61390529 Салюта Свистка Поцелуя Сигнала 0,850945887 Бредень План Динамит Сетка 0,944935893 конус цилиндр пирамида шар
Далее нам нужно перемешать значения . Выделяем следующий диапазон
0,340428874 0,076703163 0,807499996 0,919554717 Салюта Свистка Поцелуя Сигнала Бредень План Динамит Сетка конус цилиндр пирамида шар Переходим Главная -> Сортировка и фильтр -> Настраиваемая сортировка -> Параметры -> Столбцы диапазона -> Ok . Далее Сортировать по выбираем Строка 1
0,810736094 0,922569869 0,208575751 0,283217144 0,928293194 Поцелуя Салюта Сигнала Свистка 0,274564895 Динамит Бредень Сетка План 0,516270878 пирамида конус шар цилиндр
или так (каждый раз по разному)
0,711695007 0,041197715 0,207870941 0,979356982 0,718814292 Свистка Поцелуя Сигнала Салюта 0,259560572 План Динамит Сетка Бредень 0,198317825 цилиндр пирамида шар конус
Аналогично, если нам нужно перемешать по столбцам. Выделяем так
0,61390529 Салюта Свистка Поцелуя Сигнала 0,850945887 Бредень План Динамит Сетка 0,944935893 конус цилиндр пирамида шар Переходим Главная -> Сортировка и фильтр -> Настраиваемая сортировка -> Параметры -> Строки диапазона -> Ok . Далее Сортировать по выбираем Столбец A . На выходе
0,512852582 0,603497885 0,519960084 0,219585455 0,331536762 конус цилиндр пирамида шар 0,021012338 Бредень План Динамит Сетка 0,666965896 Салюта Свистка Поцелуя Сигнала
0,815880199 0,91124554 0,168220289 0,761347258 0,339763721 Бредень План Динамит Сетка 0,0601611 конус цилиндр пирамида шар 0,81674225 Салюта Свистка Поцелуя Сигнала
Больше данных, больше вариантов.
Как перемешать в случайном порядке ячейки строки в эксель?
FreedomS Просветленный (41448)
Самир Сафарли Ученик (202) 9 лет назад
Меняются только данные СЛУЧМЕЖДУ
FreedomS Просветленный (41448) Скайп?
Похожие вопросы
Ваш браузер устарел
Мы постоянно добавляем новый функционал в основной интерфейс проекта. К сожалению, старые браузеры не в состоянии качественно работать с современными программными продуктами. Для корректной работы используйте последние версии браузеров Chrome, Mozilla Firefox, Opera, Microsoft Edge или установите браузер Atom.
Как перемешать строки в excel в произвольном порядке
Имеется: таблица вида: шапка(head)+данные(data). Количество столбцов знаю = 5, кол-во строк неограниченно.
1) Как можно перемешать ячейки: шапка+соответсвующие данные в случайном порядке?
2) На крайний случай, перемешать ячейки шапки(head).
Пример во вложении.
Прикрепленные файлы
- test.xlsx (8.48 КБ)
Пользователь
Сообщений: 14868 Регистрация: 21.12.2012
E-mail и реквизиты в профиле.
03.03.2016 12:48:57
Пакость кому-то хотите сделать?
Я сам — дурнее всякого примера! .
Пользователь
Сообщений: 8839 Регистрация: 11.01.2013
03.03.2016 12:54:33
vlgpasha, добавьте строку с =СЛЧИС() , отсортируйте столбцы по этой строке.
Изменено: Казанский — 03.03.2016 12:54:50
Пользователь
Сообщений: 11251 Регистрация: 01.01.1970
03.03.2016 13:19:16
Прикрепленные файлы
- test (13).xlsx (8.77 КБ)
Лень двигатель прогресса, доказано.
Пользователь
Сообщений: 7 Регистрация: 03.03.2016
03.03.2016 14:56:09
| Цитата |
|---|
| Казанский написал: vlgpasha, добавьте строку с =СЛЧИС() , отсортируйте столбцы по этой строке. |
Подошло, спасибо!
Создаем строку значений, для удобства, =СЛЧИС()*100, заходим (у меня Excel 2016): Данные -> Сортировка -> Параметры, выбираем «столбцы диапазона, тогда всё перемешается как нужно.
2 Сергей , огромное спасибо за труд! Но это сверх моего понимания. Может когда-нибудь
KuklP, упаси, нет, что Вы, лишь отформатировать свой документ.
Как перемешать строки в excel в произвольном порядке
Имеется файл в котором в первом столбце забиты имена людей , во втором пол (М,Ж) в третьем дата рождения и так далее.
Мне нужно перемешать данные в первом столбце в абсолютно случайном порядке. Но сделать это нужно так что бы не сбились данные которые относятся к этому человеку. Файл пример прилагается.
Имеется файл в котором в первом столбце забиты имена людей , во втором пол (М,Ж) в третьем дата рождения и так далее.
Мне нужно перемешать данные в первом столбце в абсолютно случайном порядке. Но сделать это нужно так что бы не сбились данные которые относятся к этому человеку. Файл пример прилагается. Portret32
К сообщению приложен файл: __.xlsx (9.7 Kb)
Сообщение Всем привет!
Имеется файл в котором в первом столбце забиты имена людей , во втором пол (М,Ж) в третьем дата рождения и так далее.
Мне нужно перемешать данные в первом столбце в абсолютно случайном порядке. Но сделать это нужно так что бы не сбились данные которые относятся к этому человеку. Файл пример прилагается. Автор — Portret32
Дата добавления — 13.01.2015 в 21:27