删除VBA中的额外空行

Question

我还有改变TextBox1的下面代码，所以它只删除空行而不是空格？

来自：
第1行       
      
      
      第2行

收件人：
第1行     
    第2行

 trim(TextBox1.Value & vbnullstring) = vbnullstring

Answer 1

怎么样？

Dim xArr() as string
xArr = Split(TextBox1.Value, vbCrLf)
TextBox1.Value = ""

for i = 0 to Ubound(xArr)
    If Trim(xArr(i)) <> "" Then
        TextBox1.value = TextBox1.value & xArr(i) & vbCrLf
    End If
Next