从文本框提取的数据与Excel数据不同

Question

我有一个文本框multiline=true
我使用公式Split表示文本框，但文本框中的字符串不能vlookup值，因为这是特殊的字符串符号。

Answer 1

这是您的代码， 请检查帮帮我。

Sub CommandButton22_Click（）

With Sheet2
    If Trim(TextBox21.Text) <> "" Then
        If UBound(Split(TextBox21.Text, Chr(10))) > 0 Then
            For i = 0 To UBound(Split(CStr(TextBox21.Text), Chr(10)))
            Dim a As String
               a = Trim(CStr(Split(TextBox21.Text, Chr(10))(i)))
                If IsEmpty(a) = False Then
                .Cells(1 + i, "A").Value = Trim(CStr(a))
                End If
            Next i
        End If
    End If
End With

结束子