使用列号的列的最后一行

Question

这应该很容易，但我看不到。

我有几列，每个团队一列（在 shL.Range(S2:AA2) 范围内）。每个团队下面是一系列值，这些值应该在用户窗体列表框中可用，具体取决于已选择的团队。

我有一个报告团队列号的代码，我正在尝试根据该列找到最后一行的编号。这导致运行-Time 错误 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

使用列号的列的最后一行

Last row of column using the column number

excel

vba

userform