余分な行を削除するビジュアル基本機能が必要です

-4

余分な行を削除する視覚的な基本機能が必要です。スクリーンショットと同じです。 enter image description here 余分な行を削除するビジュアル基本機能が必要です

2017-09-13 Nicole Austin

これはコード作成サービスではありません。アショクからの投稿、あなた自身のコメントを追加することができます。 –

Dim s As String 
s = "That long string..." 
While (s <> s.Replace(VbNewLine + VbNewLine, VbNewLine) 
s = s.Replace(VbNewLine + VbNewLine, VbNewLine); 
Loop

出典

2017-09-13 11:48:23 ashok19r91d

機能は次のようになります。機能RemoveExtraLines（） - - - - - - - 終了機能 –

あなたが求めているものは非常に明確ではありません。

Public Function RemoveEmptyLines(ByVal Value As String) As String 
    RemoveEmptyLines = Replace(Value, vbLf & vbCr, vbNullString) 
End Function

出典

2017-09-13 12:29:29

上記の機能は正常に動作していますが、すべての行が削除されています。 2本の線の間に2本以上の余分な線がある場合、1本の線のみが残るはずです。あなたが理解したいと思っています。あなたのサポートに感謝します！ –

余分な行を削除するビジュアル基本機能が必要です

答えて

関連する問題