Question

这是我正在尝试做的事情：

我有一个电子表格，其中包含可变长度的可变行数。
包含行的范围在开头和结尾标记为A列中的标识符，格式如下：“＃Description”

如上所述，每行的长度（这里的长度=列数）是可变的。对于每一行，我需要遍历每一列并确定它是否包含用户定义的字符串。

我尝试在两个标识符之间创建一个Range，然后在一个范围内创建一个延伸到最长行末尾的范围，但搜索不会产生任何结果。

Set firstDesc = ws.Range("A1:A9999").Find("# Description:")
Set secDesc = ws.Range("A1:A9999").Find("# Description:", firstDesc)
Set searchArea = ws.Range(secDesc, secDesc.End(xlToRight))

'grab the name of the node
   Dim nodeName As String
   nodeName = TextBox1.Value

'Find occurences of the node entered by user
   Set Node = searchArea.Find(nodeName)
   If Not Node Is Nothing Then
        MsgBox "Value Found in Cell " & Node.Address
   End If

Answer 1

在Range.Find方法中设置以下参数：LookAt（xlPart或xlWhole）和LookIn（xlValues或xlFormulas）。这些参数没有默认值;每次使用Range.Find方法时都会保存这些设置。

Excel VBA：对于两个标识符之间的可变行数，请搜索字符串的每个可变数量的列

1 个答案: