Прежде всего позвольте мне начать с исправления того, что я делал изначально, у меня есть 3 аккаунта, которые даже не знали об этом.
Dim r As Range
Set r = Range( _
"3:3,5:5,7:7,9:9,11:11,13:13,15:15,17:17,19:19,21:21,23:23,25:25,27:27,29:29,31:31" _
).Select
Поскольку у меня был .Select, когда я делал свой код, я продолжал получать сообщение об ошибке, когда я должен был просто сделать
Dim r As Range
Set r = Range( _
"3:3,5:5,7:7,9:9,11:11,13:13,15:15,17:17,19:19,21:21,23:23,25:25,27:27,29:29,31:31" _
)
r.Select
Это то, что работает.Мне, честно говоря, не нужно было делать переменную диапазоном, а я просто использовал range (). Select, но я пытался понять часть кода, которую я пытаюсь расшифровать для работы.Одновременное изучение VBA и дешифрование кода сбивает с толку:)