列的最后一行使用列号

Question

这应该很简单，但我看不到。

我有好几列，每支队伍一列（范围内的）。shL.Range(S2:AA2)). 在每个团队的下面是一系列的值，这些值应该在Userform Listbox中可用，这取决于被选择的团队。

我有一段代码，它报告了团队的列号，我试图根据该列号找到最后一行。这导致了一个运行时错误1004（对象'_Worksheet'的方法'Range'失败），我想这是由以下原因引起的。shL.Range(Cells( 但我没看到怎么解决。

有没有更好的方法可以找到列的最后一行？

Dim y As Long, c As Long
Dim shE As Worksheet, shL As Worksheet, FoundTeam As Range
Set shE = Sheets("EnteredData")
Set shL = Sheets("Lookups")

Set FoundTeam = shL.Range("S2:AA2").Find(what:=shE.Range("D3"))
    c = FoundTeam.Column
    y = shL.Range(Cells(3, c) & Rows.Count).End(xlUp).Row

我很感激任何关于这个问题的帮助。谢谢你的帮助。

Answer 1

不知道你想用连词做什么，但可以试试。

y = shL.Cells(shL.Rows.Count, c).End(xlUp).Row