Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Сортировка уникальных имен в Excel?
|
|||
|---|---|---|---|
|
#18+
Возникла проблема. Есть диапазон, заполняемый через макрос формулами. Полученные данные в текстовом формате. Некоторые ячейки диапазона остаются пустыми. После получения результата вычислений, макрос копирует их и вставляет в тот же диапазон как значения, удаляя формулы. После этого надо выполнить сортировку. Вот тут и начинается праздник. Простая сортировка по возростанию - впереди все пустые ячейки и только в самом конце сортируемого диапазона находятся данные в порядке возростания. Хотя все должно быть наоборот! Сортировка расширенным фильтром по уникальным именам - впереди пустые ячейки, а после них уникальные имена. А так как диапазон 30 000 ячеек, то результат просто замечательный. Но самое интересное, что если эти же действия выполнить напрямую, без макроса, то все сортируется верно - данные вверху, а пустые ячейки или внизу, или отутствуют (в сортировке по уникальным именам). Может какие то настройки дополнительные надо или какая-то последовательность необходима? Или кто-то знает, как устранить это безобразие? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.01.2005, 19:23 |
|
||
|
Сортировка уникальных имен в Excel?
|
|||
|---|---|---|---|
|
#18+
Добрый день! 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2005, 16:19 |
|
||
|
|

start [/forum/topic.php?fid=61&fpage=364&tid=2186219]: |
0ms |
get settings: |
11ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
35ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
46ms |
get tp. blocked users: |
2ms |
| others: | 283ms |
| total: | 412ms |

| 0 / 0 |
