Dim StrA() As String
Dim i As Long
Dim keyText As String
Dim loid As String
loid = " cd onu"
keyText = "loid"
StrA = Split(TextBox1.Text, vbCrLf)
For i = 0 To UBound(StrA)
If InStr(1, StrA(i), keyText) <> 0 Then
loid = loid & vbCrLf & StrA(i)
End If
Next i
TextBox2.Text = loid
===================
比如这样写,有没有更优化的编法?