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

Вход

Регистрация

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

 

= Мир MS Excel/Отсортировать значения по возрастанию в столбце Р - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отсортировать значения по возрастанию в столбце Р (Формулы/Formulas)
Отсортировать значения по возрастанию в столбце Р
timo64uk Дата: Среда, 06.10.2021, 18:12 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 1 ±
Замечаний: 0% ±

Добрый день :D .
При срабатывании макроса по поиску уникальных значений в массиве Range("J19:J22222") и копировании результата в столбец "Р" не могу отсортировать результат в столбце Р от А до Я.
Прошу вашей помощи.
К сообщению приложен файл: 12345.xlsx (62.1 Kb)
 
Ответить
СообщениеДобрый день :D .
При срабатывании макроса по поиску уникальных значений в массиве Range("J19:J22222") и копировании результата в столбец "Р" не могу отсортировать результат в столбце Р от А до Я.
Прошу вашей помощи.

Автор - timo64uk
Дата добавления - 06.10.2021 в 18:12
R_Dmitry Дата: Четверг, 07.10.2021, 13:11 | Сообщение № 2
Группа: Друзья
Ранг: Участник
Сообщений: 74
Репутация: 34 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub UnicSortColumn()
Set r = Range("$J$19:$J$22222")
a = r.Value
r.RemoveDuplicates Columns:=1, Header:=xlNo
r.Copy Range("P1").Resize(UBound(a), 1)
r.Value = a
With r.Parent.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("P1")
.SetRange Range("P1").Resize(UBound(a), 1)
.Header = xlNo
.Apply
End With
End Sub
[/vba]


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела

Сообщение отредактировал R_Dmitry - Четверг, 07.10.2021, 13:20
 
Ответить
Сообщение[vba]
Код
Sub UnicSortColumn()
Set r = Range("$J$19:$J$22222")
a = r.Value
r.RemoveDuplicates Columns:=1, Header:=xlNo
r.Copy Range("P1").Resize(UBound(a), 1)
r.Value = a
With r.Parent.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("P1")
.SetRange Range("P1").Resize(UBound(a), 1)
.Header = xlNo
.Apply
End With
End Sub
[/vba]

Автор - R_Dmitry
Дата добавления - 07.10.2021 в 13:11
timo64uk Дата: Пятница, 08.10.2021, 10:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 1 ±
Замечаний: 0% ±

End Sub

Спасибо. Этот код полностью заменяет мой, т.е. и ищет уникальные и сортирует результат.

Только в столбце J часть символов из Times New Roman 12 перевелись в Calibri 11, и границы таблицы пропали с таким правилом:
количество скопированных ячеек из J в P начиная от первой заполненной ячейки ниже J19 остается в Times New Roman 12, а все что ниже - в Calibri 11 и без рамки (J24).
К сообщению приложен файл: 444444444444444.xlsx (179.0 Kb)


Сообщение отредактировал timo64uk - Пятница, 08.10.2021, 10:21
 
Ответить
Сообщение
End Sub

Спасибо. Этот код полностью заменяет мой, т.е. и ищет уникальные и сортирует результат.

Только в столбце J часть символов из Times New Roman 12 перевелись в Calibri 11, и границы таблицы пропали с таким правилом:
количество скопированных ячеек из J в P начиная от первой заполненной ячейки ниже J19 остается в Times New Roman 12, а все что ниже - в Calibri 11 и без рамки (J24).

Автор - timo64uk
Дата добавления - 08.10.2021 в 10:21
R_Dmitry Дата: Пятница, 08.10.2021, 21:07 | Сообщение № 4
Группа: Друзья
Ранг: Участник
Сообщений: 74
Репутация: 34 ±
Замечаний: 0% ±

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


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
СообщениеТак задайте программно нужный Вам формат ячеек.
Запишите макрорекордером, уберите лишнее и пользуйтесь.

Автор - R_Dmitry
Дата добавления - 08.10.2021 в 21:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отсортировать значения по возрастанию в столбце Р (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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