选择使用VBA

Question

我有一个完整的多行的单个细胞内像下面数据的列中的单元的整个值：

我循环通过在列中的所有单元和I具有选择每个单元格内的值并在另一个表格中进行搜索。我知道我可以使用vba中的Split（）函数来分割单元格值。

但是我碰到的是我无法选择单元格的整个值并将其解析为split（）函数的输入。下面是我在哪里打我的示例代码：

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

我在这里面临的问题是在SrcStrng只有第一个值只有T＃234在第一小区的小区，例如内部获得存储，所以在分割字符串只有通过并且不能正确分割，所以我无法搜索t * 567。它发生在每个细胞。

而且在第三个单元格中，我只想解析搜索循环内的值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