0

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

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

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

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

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
4

1 回答 1

1

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

于 2013-02-25T19:47:40.800 回答