Сортировка макросом со второго значения

@T y p u c T · Регистрация: 06.11.2020

Студворк — интернет-сервис помощи студентам

Здравствуйте, мне нужен макрос для сортировки большой поблицы по номеру договора не затрагивая первую букву в номере договора, заранее спасибо, очень нужно.
В прикрепленном файле есть пример что нужно сортировать

@Burk · 09.11.2020, 15:10

T y p u c T, да включите макрорекодер, выделите ваш диапазон и нажмите на сортировку, там будет опция Мои Данные Содержат Заголовки, потом остановить запись и будет вам счастье со второй строки. Почему бы сначала не попробовать это сделать, а потом на форум. Это уже было 1000 раз.

@T y p u c T · 09.11.2020, 15:15 **[ТС]**

Итого должно быть так. (Прилагается прикреплённый файл).

@Burk · 09.11.2020, 15:44

T y p u c T, мне не надо показывать как должно быть после сортировки, я и так знаю, поэтому ваш файл даже не смотрел. Прочитайте моё предыдущее сообщение ещё не раз, а если непонятно, что такое макрорекодер, так посмотрите в любом поисковике.

@КостяФедореев · 09.11.2020, 15:58

T y p u c T,

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Макрос1()
Dim split1
Dim split2
lc = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lc
split1 = Split(Cells(i, 4), " ")
split2 = Split(split1(1), "/")
Cells(i, 5) = split2(0)
Next
    Range("E2:E" & lc).Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A2:E" & lc)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Range("E:E").Clear
End Sub

@T y p u c T · 09.11.2020, 16:46 **[ТС]**

КостяФедореев,

А можно сделать чтобы все манипуляции с столбцом (E) производились в userform или в невидемом листе или далеко от таблицы (таблица с данными занимает (A2:AA1000).

Заранее спасибо.

@КостяФедореев · 09.11.2020, 16:57

T y p u c T, в 8 строке

Visual Basic
1
cells(i, "BC")=split(0)

А в 22 строке

Visual Basic
1
Rang("BC:BC").Clear

Все будет за таблицей происходить

@T y p u c T · 09.11.2020, 17:16 **[ТС]**

КостяФедореев,

Не сортирует. Перепроверял.

@КостяФедореев · 09.11.2020, 17:25

T y p u c T,

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Макрос1()
Dim split1
Dim split2
lc = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lc
split1 = Split(Cells(i, 4), " ")
split2 = Split(split1(1), "/")
Cells(i, "BC") = split2(0)
Next
   
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("BC2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A2:BC" & lc)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Range("BC:BC").Clear
End Sub

@T y p u c T · 10.11.2020, 01:33 **[ТС]**

КостяФедореев,

Спасибо большое за помощь. Очень благодарен.

@T y p u c T · 16.11.2020, 13:40 **[ТС]**

У меня сегодня заблокировало таблицу, (при открытии книги требует пароль) чьих рук дело я не знаю пробую разобраться

@Narimanych · 16.11.2020, 13:56

T y p u c T,

А причем тут форум?

@T y p u c T · 16.11.2020, 14:17 **[ТС]**

Потому что хз что мне там в коде "скрыто" написали

Добавлено через 59 секунд
Врятле сама по себе таблица заблокируется

@КостяФедореев · 16.11.2020, 14:48

T y p u c T, коды все открыты, выложены текстом.
В файл Вы сами добавляли и кто знает, чего еще туда вставили...

@Narimanych · 16.11.2020, 15:09

T y p u c T,

Сообщение от T y p u c T

Потому что хз что мне там в коде "скрыто" написали

Столько лет этот форум существует...
Никогда никаких проблем не было. И сейчас все коды, которые вам послали здесь на сайте- никаких проблем в них нет.
Всегда все старались оказать безвоздмездную помощь друг другу.
Задайте себе вопрос , уважаемый, а с какого х--а людям, которые вас знать не знают и при этом вам помогли,делать вам недоброе.

Мягко выражаясь, не люблю ЛЮДЕЙ ОБВИНЯЮЩИХ ДРУГИХ В ТЕМЕ , В КОТОРОЙ ОНИ ВООБЩЕ НЕ КОМПЕТЕНТНЫ.

Просьба админам - забанить эту личность ...

@АЕ · 16.11.2020, 15:09

Сообщение от T y p u c T

Потому что хз что мне там в коде "скрыто" написали

Странная позиция. Благодарить и подозревать....
Вы код там толпой вставляли? (причем половина толпы - вредители)

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	09.11.2020, 15:10
	T y p u c T, да включите макрорекодер, выделите ваш диапазон и нажмите на сортировку, там будет опция Мои Данные Содержат Заголовки, потом остановить запись и будет вам счастье со второй строки. Почему бы сначала не попробовать это сделать, а потом на форум. Это уже было 1000 раз. 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	09.11.2020, 15:44
	T y p u c T, мне не надо показывать как должно быть после сортировки, я и так знаю, поэтому ваш файл даже не смотрел. Прочитайте моё предыдущее сообщение ещё не раз, а если непонятно, что такое макрорекодер, так посмотрите в любом поисковике. 0

@T y p u c T 0 / 0 / 0 Регистрация: 06.11.2020 Сообщений: 23
	09.11.2020, 16:46 [ТС]
	КостяФедореев, А можно сделать чтобы все манипуляции с столбцом (E) производились в userform или в невидемом листе или далеко от таблицы (таблица с данными занимает (A2:AA1000). Заранее спасибо. 0

@T y p u c T 0 / 0 / 0 Регистрация: 06.11.2020 Сообщений: 23
	09.11.2020, 17:16 [ТС]
	КостяФедореев, Не сортирует. Перепроверял. 0

@T y p u c T 0 / 0 / 0 Регистрация: 06.11.2020 Сообщений: 23
	10.11.2020, 01:33 [ТС]
	КостяФедореев, Спасибо большое за помощь. Очень благодарен. 0

@T y p u c T 0 / 0 / 0 Регистрация: 06.11.2020 Сообщений: 23
	16.11.2020, 13:40 [ТС]
	У меня сегодня заблокировало таблицу, (при открытии книги требует пароль) чьих рук дело я не знаю пробую разобраться 0

@Narimanych 2752 / 1726 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	16.11.2020, 13:56
	T y p u c T, А причем тут форум? 0

@T y p u c T 0 / 0 / 0 Регистрация: 06.11.2020 Сообщений: 23
	16.11.2020, 14:17 [ТС]
	Потому что хз что мне там в коде "скрыто" написали Добавлено через 59 секунд Врятле сама по себе таблица заблокируется 0

@КостяФедореев Часто онлайн 987 / 637 / 280 Регистрация: 09.01.2017 Сообщений: 2,080
	16.11.2020, 14:48
	T y p u c T, коды все открыты, выложены текстом. В файл Вы сами добавляли и кто знает, чего еще туда вставили... 0

Сортировка макросом со второго значения

Решение