Vba excel。查找带换行符的文本insie单元格

我有以下代码。它在一列中搜索特定值。它工作正常，但是如果单元格有换行符，代码不会搜索第二行

vardestinolinha = ThisWorkbook.Sheets("base").Range("a11").End(xlDown).Row

a = 10
k = a
For i = a To vardestinolinha
    Search = ThisWorkbook.Sheets(NomeTabela).Range("a2")
    Replacement = ThisWorkbook.Sheets(NomeTabela).Range("c" & i)
    varposicao = ThisWorkbook.Sheets(NomeTabela).Range("b" & i) '''''

    Set rngFind = ThisWorkbook.Sheets("base").Columns(2).Find(What:=Search, LookIn:=xlValues, lookat:=xlPart)
    Do While Not rngFind Is Nothing
        tamanho = Len(rngFind)
        p = InStr(1, rngFind, Search, vbTextCompare)

        If p > 0 Then
            ThisWorkbook.Sheets("base").Cells(k, 5) = ThisWorkbook.Sheets("base").Cells(k, 3)
            k = k + 1
        End If
        Set rngFind = ThisWorkbook.Sheets("base").Columns(2).FindNext
    Loop
    k = i + 1
Next

---

我希望代码即使在有换行符的情况下也能搜索整个单元格。

如果使用Alt+Enter方法在单元格中输入文本，则可以在VBA中使用：

" & Chr(10) & "

这是我使用的.Find方法

Private Sub CommandButton1_Click()
Set RngClosedDate = Range("A1:Z10").Find(What:="Closed" & Chr(10) & "(Date)", LookAt:=xlWhole, LookIn:=xlValues)
      ' If the text that is searched for from the line above is not found then a message box is displayed and sub function is exitied
      If RngClosedDate Is Nothing Then
        MsgBox "Closed (Date) Column Header Not found.  Cannot sort or format records."
        Exit Sub
      End If
End Sub

---

我有点困惑。。。为什么

.Columns（2）.Rows（k）

？我正在删除这些行。你能帮我吗？谢谢你。这个答案应该被接受为这个问题的解决方案。