Excel VBA：在单独的工作表中查找范围内的字符串变量，然后将范围变量设置为该列

Question

我正在尝试在Lists.Range（“I2：AD2”）范围内找到字符串变量A.一旦找到该单元格，我想将新的范围变量A_backup设置为从找到的“I2：AD2”中的单元格到列中最后一个非空单元格的范围。我已经能够使用select，activecell等来做到这一点，但是我想避免这种情况，因为当我从工作簿中的不同工作表运行它时会导致问题。

以下是似乎有效的代码：

A = OrderForm.Range("C15").Value

    If Len(A) > 0 Then
       Set A_backup = Lists.Range("I2:AD2").Find(A)

从这里开始，我希望它能做到：

       Set A_backup = Range(A_backup.Address, A_backup.Address.End(xlDown)
    End If

但似乎无法想象那部分。谢谢你的帮助！

Answer 1

想出来，但是很想知道是否有更好的方法：

Set A_backup = Range(Lists.Range("I2:AD2").Find(A), Lists.Range("I2:AD2").Find(A).End(xlDown))

结束如果