Сортировка цифр в ячейке
928-922
Дата: Понедельник, 14.09.2020, 14:20 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Добрый день! Как сделать чтоб в одной ячейке цифры сортировались по порядку. Пример во вложении
Добрый день! Как сделать чтоб в одной ячейке цифры сортировались по порядку. Пример во вложении 928-922
Ответить
Сообщение Добрый день! Как сделать чтоб в одной ячейке цифры сортировались по порядку. Пример во вложении Автор - 928-922 Дата добавления - 14.09.2020 в 14:20
_Boroda_
Дата: Понедельник, 14.09.2020, 15:30 |
Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
1. Цифры или числа? Это разные вещи - у Вас там есть 10 2. Это произвольный набор или откуда-то тянутся данные? Если тянутся, то проще. Откуда и как? 3. Какое максимально возможное количество "цифр" нужно отсортировать? Вообще количество того, что отсортировать нужно, меняется или постоянно?
1. Цифры или числа? Это разные вещи - у Вас там есть 10 2. Это произвольный набор или откуда-то тянутся данные? Если тянутся, то проще. Откуда и как? 3. Какое максимально возможное количество "цифр" нужно отсортировать? Вообще количество того, что отсортировать нужно, меняется или постоянно? _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение 1. Цифры или числа? Это разные вещи - у Вас там есть 10 2. Это произвольный набор или откуда-то тянутся данные? Если тянутся, то проще. Откуда и как? 3. Какое максимально возможное количество "цифр" нужно отсортировать? Вообще количество того, что отсортировать нужно, меняется или постоянно? Автор - _Boroda_ Дата добавления - 14.09.2020 в 15:30
Nic70y
Дата: Вторник, 15.09.2020, 08:55 |
Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
Как-то так [vba]Код
Sub u_725() Application.ScreenUpdating = False va = Cells(Rows.Count, "b").End(xlUp).Row For Each c In Range("b2:b" & va) wa = Replace(c, " ", "") wb = Len(c) wc = Len(wa) wd = wb - wc + 1 If wc > 0 Then aa = Replace(c, " ", ",") bb = Split(c, " ") kk = "" For u = 1 To wd cc = Evaluate("=SMALL({" & aa & "}, " & u & ")") za = "" If u > 1 Then za = " " kk = kk & za & cc Range("b" & c.Row) = kk Next End If Next Application.ScreenUpdating = True End Sub
[/vba]для начала
Как-то так [vba]Код
Sub u_725() Application.ScreenUpdating = False va = Cells(Rows.Count, "b").End(xlUp).Row For Each c In Range("b2:b" & va) wa = Replace(c, " ", "") wb = Len(c) wc = Len(wa) wd = wb - wc + 1 If wc > 0 Then aa = Replace(c, " ", ",") bb = Split(c, " ") kk = "" For u = 1 To wd cc = Evaluate("=SMALL({" & aa & "}, " & u & ")") za = "" If u > 1 Then za = " " kk = kk & za & cc Range("b" & c.Row) = kk Next End If Next Application.ScreenUpdating = True End Sub
[/vba]для начала Nic70y
ЮMoney 41001841029809
Ответить
Сообщение Как-то так [vba]Код
Sub u_725() Application.ScreenUpdating = False va = Cells(Rows.Count, "b").End(xlUp).Row For Each c In Range("b2:b" & va) wa = Replace(c, " ", "") wb = Len(c) wc = Len(wa) wd = wb - wc + 1 If wc > 0 Then aa = Replace(c, " ", ",") bb = Split(c, " ") kk = "" For u = 1 To wd cc = Evaluate("=SMALL({" & aa & "}, " & u & ")") za = "" If u > 1 Then za = " " kk = kk & za & cc Range("b" & c.Row) = kk Next End If Next Application.ScreenUpdating = True End Sub
[/vba]для начала Автор - Nic70y Дата добавления - 15.09.2020 в 08:55
928-922
Дата: Вторник, 15.09.2020, 09:47 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
_Boroda_, добрый день, это числа, они тянутся из другого столбца, в который попадают из базы данных, сортировка возможна от 1 до 100
_Boroda_, добрый день, это числа, они тянутся из другого столбца, в который попадают из базы данных, сортировка возможна от 1 до 100 928-922
Ответить
Сообщение _Boroda_, добрый день, это числа, они тянутся из другого столбца, в который попадают из базы данных, сортировка возможна от 1 до 100 Автор - 928-922 Дата добавления - 15.09.2020 в 09:47
Nic70y
Дата: Вторник, 15.09.2020, 09:57 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
это числа, они тянутся из другого столбца
каким образом они тянутся? если формулой, есть смысл показать файл с базой данных и соот. этой формулой.
это числа, они тянутся из другого столбца
каким образом они тянутся? если формулой, есть смысл показать файл с базой данных и соот. этой формулой.Nic70y
ЮMoney 41001841029809
Ответить
Сообщение это числа, они тянутся из другого столбца
каким образом они тянутся? если формулой, есть смысл показать файл с базой данных и соот. этой формулой.Автор - Nic70y Дата добавления - 15.09.2020 в 09:57
Светлый
Дата: Вторник, 15.09.2020, 13:06 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1823
Репутация:
507
±
Замечаний:
0% ±
Excel 2013, 2016
Вариант формулой массива:Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ТЕКСТ(СУММ(НАИБОЛЬШИЙ(--(0&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(B3;" ";ПОВТОР(" ";99));СТОЛБЕЦ(A:H)*99-98;99)));СТОЛБЕЦ(A:H))%*100^СТОЛБЕЦ(A:H));ПОВТОР("\ 00";8));"00 ";);" 0";" "))
но есть ограничения. Не более 8 чисел и хотя бы одно число <10.
Вариант формулой массива:Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ТЕКСТ(СУММ(НАИБОЛЬШИЙ(--(0&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(B3;" ";ПОВТОР(" ";99));СТОЛБЕЦ(A:H)*99-98;99)));СТОЛБЕЦ(A:H))%*100^СТОЛБЕЦ(A:H));ПОВТОР("\ 00";8));"00 ";);" 0";" "))
но есть ограничения. Не более 8 чисел и хотя бы одно число <10. Светлый
Программировать проще, чем писать стихи.
Ответить
Сообщение Вариант формулой массива:Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ТЕКСТ(СУММ(НАИБОЛЬШИЙ(--(0&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(B3;" ";ПОВТОР(" ";99));СТОЛБЕЦ(A:H)*99-98;99)));СТОЛБЕЦ(A:H))%*100^СТОЛБЕЦ(A:H));ПОВТОР("\ 00";8));"00 ";);" 0";" "))
но есть ограничения. Не более 8 чисел и хотя бы одно число <10. Автор - Светлый Дата добавления - 15.09.2020 в 13:06
Светлый
Дата: Среда, 16.09.2020, 12:41 |
Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1823
Репутация:
507
±
Замечаний:
0% ±
Excel 2013, 2016
Ещё вариант:Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ТЕКСТ(СУММ(НАИБОЛЬШИЙ(ЕЧИСЛО(ПОИСК(" "&СТОЛБЕЦ(A:CU)&" ";" "&B3&" "))*СТОЛБЕЦ(A:CU);СТОЛБЕЦ(A:H))%*100^СТОЛБЕЦ(A:H));ПОВТОР("\ 00";8));"00 ";);" 0";" "))
Ещё вариант:Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ТЕКСТ(СУММ(НАИБОЛЬШИЙ(ЕЧИСЛО(ПОИСК(" "&СТОЛБЕЦ(A:CU)&" ";" "&B3&" "))*СТОЛБЕЦ(A:CU);СТОЛБЕЦ(A:H))%*100^СТОЛБЕЦ(A:H));ПОВТОР("\ 00";8));"00 ";);" 0";" "))
Светлый
Программировать проще, чем писать стихи.
Ответить
Сообщение Ещё вариант:Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ТЕКСТ(СУММ(НАИБОЛЬШИЙ(ЕЧИСЛО(ПОИСК(" "&СТОЛБЕЦ(A:CU)&" ";" "&B3&" "))*СТОЛБЕЦ(A:CU);СТОЛБЕЦ(A:H))%*100^СТОЛБЕЦ(A:H));ПОВТОР("\ 00";8));"00 ";);" 0";" "))
Автор - Светлый Дата добавления - 16.09.2020 в 12:41
Юрий_Ф
Дата: Пятница, 18.09.2020, 11:59 |
Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 767
Репутация:
1
±
Замечаний:
60% ±
Excel 2010
Светлый , А эти формулы, в какую ячейку ставить, чтобы сортировалось в В3?
Светлый , А эти формулы, в какую ячейку ставить, чтобы сортировалось в В3?Юрий_Ф
То, что мы делаем, завораживает! Кстати! Я не могу всем нравиться! И это взаимно!
Ответить
Сообщение Светлый , А эти формулы, в какую ячейку ставить, чтобы сортировалось в В3?Автор - Юрий_Ф Дата добавления - 18.09.2020 в 11:59
Nic70y
Дата: Пятница, 18.09.2020, 12:17 |
Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
Юрий_Ф , в любую, которая нравится.[vba][/vba]в коде лишнее, забыл удалить (после экспериментов) [p.s.]вторая формула неправильно отсортирует, если есть повторы[/p.s.]
Юрий_Ф , в любую, которая нравится.[vba][/vba]в коде лишнее, забыл удалить (после экспериментов) [p.s.]вторая формула неправильно отсортирует, если есть повторы[/p.s.]Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Пятница, 18.09.2020, 12:21
Ответить
Сообщение Юрий_Ф , в любую, которая нравится.[vba][/vba]в коде лишнее, забыл удалить (после экспериментов) [p.s.]вторая формула неправильно отсортирует, если есть повторы[/p.s.]Автор - Nic70y Дата добавления - 18.09.2020 в 12:17