☰

如何在vba中设置lastrow选择范围

tag-icon • tag-icon vba
如何在vba中设置lastrow选择范围

尝试在（“B4:B17”）之间设置最后一行并不断收到错误（应用程序定义或对象定义错误），还有其他方法可以设置最后一行选择范围吗，或者我在这段代码中做错了什么

 sub try()
   dim lastrow as long
   lastrow = ActiveSheet.Range("D4:D17" & Rows.Count).End(xlUp).Row
 end sub

答案1

使用测距方法找到最后一行。

如果所有单元格都是空的，则应使用On error resume next来抑制错误

Sub try()
    Dim lastrow as long
    On Error Resume Next
    lastrow = [B4:B17].Find("*", [B4], , , xlByRows, xlPrevious).Row
    On Error GoTo 0
End Sub

答案2

实际上我已经明白了，但如果还有其他方法，请告诉我。

  lastrow = Range("B17").End(xlUp).Row

相关内容