Member 14011636 Ответов: 3

Ошибка вне диапазона в VBA

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

Суб SplitandFilterSheet()
Шаг 1 - скопируйте лист
'Шаг 2 - фильтрация по отделам и удаление строк, не применимых
'Шаг 3 - цикл до конца списка

Дим Splitcode Как Диапазон
Листы("Мастер").Выбрать
Set Splitcode = Range("SplitCode")

Для каждой ячейки в Splitcode
Листы("Мастер").Копировать После:=Рабочие Листы(Sheets.Рассчитывать)
Активный лист.Имя = ячейка.Ценность

С ActiveWorkbook.Листы(сот.Ценность).Диапазон("MasterData")
.Поля автофильтра:=5, критериальные:="&ЛТ;&ГТ;" &ампер; мобильный.Значение, оператор:=xlFilterValues
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Весь день.Удалить
Конец С

Параметру activesheet.aitofilter.ShowAllData
Соседней камере
Конец Подводной Лодки

Что я уже пробовал:

Я перепробовал много вещей, но это не сработало. может ли кто-то мольбами помочь?

3 Ответов

Рейтинг:
1

OriginalGriff

Мы мало чем можем помочь - для этого требуются ваши данные и ваш код, чтобы решить, в чем может быть проблема, а у нас нет доступа ни к тому, ни к другому.

Так что все будет зависеть от тебя.
К счастью, у вас есть инструмент, который поможет вам выяснить, что происходит: отладчик. MS Excel 2013: введение в отладку VBA[^] должен дать вам информацию, необходимую для начала работы в гетто.

Поместите точку останова в первую строку функции и запустите код через отладчик. Затем посмотрите на свой код и на свои данные и определите, что должно произойти вручную. Затем по одному шагу в каждой строке проверяйте, что то, что вы ожидали, произойдет именно так, как и произошло. Когда это не так, тогда у вас есть проблема, и вы можете вернуться назад (или запустить ее снова и посмотреть более внимательно), чтобы выяснить, почему.

Извините, но мы не можем сделать это за вас - пришло время вам освоить новый (и очень, очень полезный) навык: отладку!

Рейтинг:
1

Patrice T

Цитата:
Я перепробовал много вещей, но это не сработало. может ли кто-то мольбами помочь?

Ваш код ведет себя не так, как вы ожидаете, или вы не понимаете, почему !

Существует почти универсальное решение: запускайте свой код на отладчике шаг за шагом, проверяйте переменные.
Отладчик здесь, чтобы показать вам, что делает ваш код, и ваша задача-сравнить с тем, что он должен делать.
В отладчике нет никакой магии, он не знает, что должен делать ваш код, он не находит ошибок, он просто помогает вам, показывая, что происходит. Когда код не делает того, что ожидается, вы близки к ошибке.
Чтобы увидеть, что делает ваш код: просто установите точку останова и посмотрите, как работает ваш код, отладчик позволит вам выполнять строки 1 на 1 и проверять переменные по мере их выполнения.
Отладчик - Википедия, свободная энциклопедия[^]
Отладка в Excel VBA - простые макросы Excel[^]
MS Excel 2013: введение в отладку VBA[^]
Как отладить Excel VBA - YouTube[^]

Отладчик здесь только для того, чтобы показать вам, что делает ваш код, и ваша задача-сравнить его с тем, что он должен делать.

Рейтинг:
0

Maciej Los

Там может быть немного причин для этого Subscript out of range сообщение об ошибке. Видеть: Индекс вне диапазона (Ошибка 9) | Microsoft Docs[^]

На первый взгляд, вы пытаетесь изменить коллекцию в for each цикл, который является основной причиной вышеуказанной ошибки.

Кроме того, я бы избегал использования Select/Activate метод должный к представлению. Видеть: Как избежать использования Select в Excel VBA[^].