VBA Расширение диапазона

Question

У меня две рабочие тетради. На первом я использую VBA, чтобы найти ячейку;

Dim un_pro as range
Set un_pro = ws.cells(rows.count, "B").End(xlup).Offset(Rowoffset:=1)

На втором я нахожу размер диапазона:

Dim me_lrow as long
me_lrow = ws.cells(ws.rows.count, "A").End(xlup).Row

Я хочу расширить un_pro до размера, равного me_lrow, но не могу понять это. Последнее, что я попробовал, было создание нового диапазона:

Dim un_cat as range
un_cat = un_pro & me_lrow

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

Answer 1

Похоже, что вы хотите создать диапазон, который запускается из строки после последней использованной строки (скажем, строка 5) в столбце B и имеет количество строк, определенное последней использованной строкой в ​​столбце A (скажем, строка 10). Желаемый результат - диапазон B6: B15. В этом случае работает следующее:

Sub ExtendRange()

Dim un_pro As Range, ws As Worksheet, me_lrow As Long

Set ws = ActiveSheet
Set un_pro = ws.Cells(Rows.Count, "B").End(xlUp).Offset(Rowoffset:=1)

me_lrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Set un_pro = un_pro.Resize(me_lrow)

End Sub

Answer 2

Попробуйте использовать

Dim un_cat As Range
Set un_cat = Union(unoiuun_pro, me_lrow)