Question

我在Excel中有4列，名为

＆＃34; VOLUME1＆＃34;
    ＆＃34;卷2＆＃34;
    ＆＃34; Volume3＆＃34;
    ＆＃34; Volume4＆＃34;

我有一个1到4的计数器。

我想根据列的名称为变量Vol提供一个值。

我这样做了：

For j = 1 To 4
    Vol = Application.Match("Volume" + " & j & ", Worksheets("Results").Range("A1:K1"), 0)

但它不起作用。有什么想法吗？

Answer 1

试试这个 - 你的连接已经结束了

For j = 1 To 4
    Vol = Application.Match("Volume" & j, Worksheets("Results").Range("A1:K1"), 0)
Next

使用“查找”

的更好方法

Dim rng1 As Range
For j = 1 To 4
   Set rng1 = Sheets("Results").Range("A1:K1").Find("Volume" & j, , xlFormulas, xlWhole)
   If Not rng1 Is Nothing Then Debug.Print rng1.Address
Next

如何使用计数器的值在VBA中查找列？

1 个答案: