Метод Получение диапазона объект _worksheet Сбой коды ниже

Question

Моего кода

Set myRange1 = ws1.Range("B5", ws1.Range("B5" & Rows.Count).End(xlUp)) 

Answer 1

Если вы пытаетесь получить диапазон от Cell «B5» до тех пор пока в последней строке с данными в колонке B (с пропуском пустые ячейки в середине) используйте код ниже:

With ws1 
    Set myRange1 = .Range("B5:B" & .Cells(.Rows.Count, "B").End(xlUp).Row) 
End With 

Вариант 2: Если вы пытаетесь получить диапазон от Cell «B5» до тех пор пока в последней строке с данными в колонке B (без пропуска пустых ячеекв середине) используйте этот дополнительный код ниже:

With ws1 
    Set myRange1 = .Range("B5:B" & .Range("B5").End(xlDown).Row) 
End With 

Answer 2

Я думаю, что следующая деталь странная.

ws1.Range("B5" & Rows.Count).End(xlUp) 

"B5" & Rows.Count не является правильным.

Если вы не используете Rows.Count. Попробуйте это.

ws1.Range("B" & ws1.Rows.Count).End(xlUp).Address