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