Question

我想使用VBA在excel表中找到带有换行符的单词。为此，我编写了如下VBA宏：

Set columnIndex1 = headerRow.Find("AAA " & vbCrLf & "BBB", LookIn:=xlValues)

我要搜索的文字是： * AAA 换行符 BBB * VBA没有检测到新线路。可能是什么解决方案？

Answer 1

录制宏，编写值。然后看看excel如何解释它并搜索它。当 Alt + 输入时，它就是这样的：

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveCell.FormulaR1C1 = "23AAA" & Chr(10) & "BBBSD"
    Range("A2").Select
End Sub

然后这样的事情起作用：

Public Sub TestMe()

    Dim colIndex As Range
    Set colIndex = Range("A1:Z100").Find("AAA" & Chr(10) & "BBB", LookIn:=xlValues)
    Debug.Print colIndex.Address

End Sub

或使用VbLf，与Chr(10)相同。 Differences Between vbLf, vbCrLf & vbCr Constants

使用Range.Find（）在VBA中使用VBA查找换行符

1 个答案: