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))

萬一