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

尝试使用

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

Answer 2

似乎您要创建一个范围，该范围从B列中最后一个使用的行（例如第5行）之后的行开始，并具有由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

VBA扩展范围

2 个答案: