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

【问题标题】：Excel VBA: Find string variable in range on separate sheet, then set range variable to that columnExcel VBA：在单独的工作表上查找范围内的字符串变量，然后将范围变量设置为该列
【发布时间】：2014-09-03 16:54:27
【问题描述】：

我正在尝试在 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

但似乎无法弄清楚那部分。感谢您的帮助！

【问题讨论】：

标签： vba excel find range

【解决方案1】：

想通了，但很想听听是否有更好的方法：

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

如果结束

【讨论】：