Использование определенного диапазона со специальными ячейками

Question

Я пытаюсь найти непустые ячейки в определенной переменной диапазона, используя .SpecialCells, если я использую:

    Set aRange = Range(Cells(2, 5), Cells(botRow, 5))
    Set tRange = aRange.SpecialCells(xlCellTypeConstants)

tRange - Пусто. Однако, если я использую:

    Set tRange = Range(Cells(2, 5), Cells(botRow, 5)).SpecialCells(xlCellTypeConstants)

tRange имеет то, что я хочу.

Почему .SpecialCells не работает с определенной переменной диапазона? Я что-то упустил?

Answer 1

Попробуйте квалифицировать ваши объекты (Ranges & Cells) с помощью рабочего листа:

Dim ws as Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update

Dim aRange as Range, tRange as Range

Set aRange = ws.Range(ws.Cells(2, 5), ws.Cells(botRow, 5))
Set tRange = aRange.SpecialCells(xlCellTypeConstants)

Answer 2

Когда вы используете SpecialCells с xlCellTypeConstants, добавьте также второй параметр. Это комбинация флажков, которые вы найдете в диалоговом окне «Перейти к спец.». Если вы хотите все, сделайте так:

aRange.SpecialCells(xlCellTypeConstants, xlErrors + xlLogical + xlNumbers + xlTextValues)

Это будет работать с обеими вашими версиями.