Excel VBA сортировочные валюты колонки по убыванию

Question

У меня есть лист с 2 столбцами А имеет shopnames и B имеет валютные ценности

Я хочу, чтобы отсортировать в порядке убывания столбца порядка B

Вот что я сделал:

With Sheets("helpsheet") 
    .Sort Key1:=Range("A"), Order1:=xlDescending, Header:=xlYes  
End With 

Не работает. Что мне делать по-другому?

Answer 1

В VBA есть несколько вариантов сортировки. Самый простой способ улучшить код - добавить ряд данных, которые вы хотите отсортировать. Поэтому вам нужно улучшить свой код на следующее:

With Sheets("helpsheet").Range("a1").CurrentRegion 
    .Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes 
End With 

Что я сделал:.

1. предположил, что ваш диапазон данных начинается в Range("A1") и делает область (поэтому я использовал CurrentRegion property в With линии
2. I сортировки набора ключ к Range("B1") согласно информации от вашего вопроса.

При необходимости вы можете изменить эти пункты в соответствии с вашей ситуацией.