powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сортировка уникальных имен в Excel?
3 сообщений из 3, страница 1 из 1
Сортировка уникальных имен в Excel?
    #32865844
tri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tri
Гость
Возникла проблема. Есть диапазон, заполняемый через макрос формулами. Полученные данные в текстовом формате. Некоторые ячейки диапазона остаются пустыми. После получения результата вычислений, макрос копирует их и вставляет в тот же диапазон как значения, удаляя формулы. После этого надо выполнить сортировку. Вот тут и начинается праздник. Простая сортировка по возростанию - впереди все пустые ячейки и только в самом конце сортируемого диапазона находятся данные в порядке возростания. Хотя все должно быть наоборот! Сортировка расширенным фильтром по уникальным именам - впереди пустые ячейки, а после них уникальные имена. А так как диапазон 30 000 ячеек, то результат просто замечательный. Но самое интересное, что если эти же действия выполнить напрямую, без макроса, то все сортируется верно - данные вверху, а пустые ячейки или внизу, или отутствуют (в сортировке по уникальным именам). Может какие то настройки дополнительные надо или какая-то последовательность необходима? Или кто-то знает, как устранить это безобразие?
...
Рейтинг: 0 / 0
Сортировка уникальных имен в Excel?
    #32921385
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Sub Test1()
'Диапазон A1:A19 заполнен формулами,
'часть которых возвращает пустое значение
'после данной процедуры будет вам счастье :-)
Range("A1:A19").Copy
Range("B1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("B1:B19").Sort Key1:=Range("B1"), Header:=xlGuess
Range("B1:B19").AutoFilter
Range("B1:B19").AutoFilter Field:=1, Criteria1:="="
Range("B1:B19").SpecialCells(xlCellTypeVisible).ClearContents
ActiveSheet.AutoFilterMode = False
Range("B1:B19").Sort Key1:=Range("B1"), Header:=xlGuess
Range("A1").Select
End Sub
С уважением, Сергей Густокашин. Тольятти, Комсофт. ICQ 75307217
...
Рейтинг: 0 / 0
Сортировка уникальных имен в Excel?
    #32921540
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
triИли кто-то знает, как устранить это безобразие?Посмотрите код пробела в том и другом случае...
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сортировка уникальных имен в Excel?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]