使用VBAselect一个单元格的整个值

我在一个单元格内有一列满是多行的数据，如下所示：

我正在遍历列中的所有单元格，我必须在每个单元格中select值并在另一个表单中进行search。我知道我可以使用vba中的Split（）函数来分割单元格值。

但是，我感到震惊的是我无法select单元格的整个值，并将其parsing为split（）函数的input。 这里是我的示例代码，我感到震惊：

For Each C in Range ("A1:A" & ltrow) If C.Value <> "" Then SrcStrng = C.Value TextArray () = Split(SrcStrng) ..... ........ ..... 

我在这里面临的问题是在SrcStrng只有单元格内的第一个值，例如在第一个单元格中，只有t＃234被存储，所以在拆分string只有通过，它没有正确拆分，所以我无法searchT * 567。 它发生在每个细胞。

而且在第三个单元格中，我只想parsingsearch循环内的值t＃345，忽略L1 :,我也感到震惊。

有人可以帮我这个请。

Answer 1

这里是一个例子来说明如何做到这一点。 使用chr(10)作为分隔符

 Sub t() Dim str As String str = Range("A1").Value Dim parts As Variant parts = Split(str, Chr(10)) For i = LBound(parts) To UBound(parts) MsgBox (parts(i)) Next i End Sub