ячеек?
a = Sheets(1).Cells(28, 1).CurrentRegion.Value
Берите весь диапазон как объект: set a = Sheets(1).Cells(28, 1).CurrentRegion но это уже будет не быстрый массив, а диапазон со всем его хозяйством
У меня эта часть скрипта используется вот в таком варианте a = Sheets(1).Cells(28, 1).CurrentRegion.Value For i = 1 To UBound(a) If a(i, 1) = True Then x = x + 1 b.Cells(x, 2) = a(i, 3) Если я напишу как вы предложили (без Value) все нормально будет?
я бы еще значение Cells переопределил в переменную
Да я думаю доработок для моего макроса великое множество, но пока работает - лучше не трогать)
Не будет, у вас уже переменная "a" будет типа range. Нужно будет написать ubound (a.value2)
А где b.Cells(x,2) = a(I,3) Что-то тоже надо менять?
Обсуждают сегодня