在VBA中读取行中的所有值

Question

我想读出标题中搜索定义值的所有值

For i_col = column_a To column_z
 Set search = Wks1.Cells(i_col&"1")
 If search.Value = "" Then

所以我看到了创建数组或全部转换的可能性，但我正在寻找一种更简单的方法

我认为这是经常被问到的，但我没有找到一个好的解决方案

Answer 1

为此，您可以使用如下所示的FIND方法而不使用循环：

set rngSearch = Wks1.Range("A1:Z1").Find("WhatYouAreLookingFor",Wks1.Range("A1"),xlValues,xlWhole)

然后，您可以使用

测试它是否包含所需的值

If Not rngSearch is nothing then

Answer 2

Set search = Wks1.Cells(i_col&"1")
If search.Value = "" Then

太累了...... 当然，＆＃34;搜索＆＃34;是一个范围对象，这就是代码使用的原因     ＆＃39;设置＆＃39;和＆＃39; Search.Value＆＃39;

我稍微更改了代码

对不起

@Shrivallabha Redij - 这可能有效，是的