Смещение столбца в диапазоне в Excel VBA

Question

Я использую этот код, чтобы установить диапазон:

Set rngsearch = xGBP.Range("B1", Columns("B").Find(1, Cells(Rows.count - 1, "B")).Offset(-1)) 

Это прекрасно работает. Тогда то, что я хочу, чтобы компенсировать этот диапазон, чтобы выбрать столбец E вместо B и попытался:

rngsearch = rngsearch.Offset(0, 3) 

Мой тест показывает, что это возвращает пустой массив. Любые решения?

Answer 1

В вашей второй строке кода отсутствует команда Set. При назначении объекта (например, диапазона) вы должны установить переменную объекта, равную объекту.

Set rngsearch = rngsearch.Offset(0,3)