使用VBA根据匹配值将值插入到variables中

假设我正在使用VBA并将值存储为string。 我想将此string与表单中的一系列值进行比较，然后将匹配的行值插入到变体中。 例如：

MyValue = "TestMe" 

表（“testing”）

 name val1 val2 val3 val4 qqq 2 3 yes a aaa 5 6 no d TestMe 4 7 yes z 

我希望将行“TestMe”的值提取到一个变体中。 什么是最有效的方法来做到这一点？ 我有办法，但似乎很慢，我很好奇，如果有更好的办法。 现在我正在循环表单（“testing”）范围。

Answer 1

我会想这样的事情：

 Dim x As String Dim r As Range Dim values x = "TestMe" Set r = Me.Columns("A").Find(what:=x, lookat:=xlWhole, MatchCase:=True) If Not r Is Nothing Then values = Application.Intersect(Me.UsedRange, r.EntireRow).Value End If 

values将是一个基于1的二维数组（即使它只是从一个行或一列）。
（例如values(1, 3)在该样本中values(1, 3)例如values(1, 3)将是7 ）。