VBA代码Lastrow =单元格值

Question

我通常使用以下代码来查找lastrow。

Dim Lastrow As Integer
Lastrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row

当我不知道我的最后一行应该是什么时，这很好用。我试图用它作为这个。

Dim Lastrow As Integer
Lastrow = Range("U3").Value

当我调试代码并将鼠标悬停在

上时

  

＆＃34;范围（＆＃34; U3＆＃34）。值及＃34;

显示

  

＆＃34;范围（＆＃34; U3＆＃34;）。值= 558＆＃34;

但当我将鼠标悬停在

上时

  

＆＃34; LASTROW＆＃34;

它说

  

＆＃34; Lastrow =空＆＃34;

而不是558.

我尝试使用它的原因是因为数据是从主列表中提取的，所以我无法使用Rows.Count功能。我改为计算了我正在过滤的特定值并将其用作我的最后一行。

如何让它识别我想设置变量＆＃34; Lastrow＆＃34;到U3中的值？

Answer 1

如果我插入＆＃34; 558＆＃34;在单元格A3（而不是U3）中运行此代码，它生成＆＃34; 558＆＃34;在即时窗口中：

router-view

当然，当您使用调试器逐步执行它并将鼠标悬停在设置@event的行上时，它会显示＆＃34; Lastrow = 0＆＃34;，但这仅仅是因为变量尚未设置。很明显，它确实正确设置，因为下一行中的Sub test() Dim Lastrow As Integer Dim sheet1 As Worksheet Set sheet1 = ActiveSheet Lastrow = sheet1.Range("A3").Value2 Debug.Print Lastrow End Sub 语句产生了预期的输出。