Excel VBA сортировка по формулам - ошибка 1004

Question

Я проверил все вопросы форума, которые касаются этой темы.Я не могу заставить мой код работать.

Вот код.Пожалуйста, дайте мне знать, что мне нужно исправить.

Dim strDataRange As String
Dim strKeyRange As String

strDataRange = "B" & strStartRow & ":M" & strLastRow
strKeyRange = "B" & strStartRow & ":B" & strLastRow

Range(strDataRange).Sort Key1:=strKeyRange, Order1:=xlDescending,   Header:=xlNo

strDataRange - B5:M18.

strKeyRange - B5:B18.

Answer 1

Я нашел проблему. Поскольку коды VBA находились на листе, отличном от того, где я сортировал, мне нужно было добавить ссылку на книгу; что "ш".

вот исправленный код

 ws.Range(strDataRange).Sort Key1:=ws.Range(strKeyRange), Order1:=xlDescending, Header:=xlNo

Спасибо за вашу помощь.

Answer 2

use:

Range(strDataRange).Sort Key1:=Range(strKeyRange), Order1:=xlDescending, Header:=xlNo

, поскольку Sort метод хочет Key1 параметр как "... поле сортировки, либо в качестве имени диапазона (String), либо объекта Range«