空白文字の除去 (ID:84607)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > tomさん 複数の空白（1個も2個も3つ以上も）が一つになるだけだと思いますが…。 > もかちさん 6個以上あった時は空白2つ以上になってしまいます。 Dim sBuff$, sData As String Dim lCnt As Long sBuff = "1 2 3 4 5 6 7 8 " Do Until (Len(sBuff) = 0) If Left$(sBuff, 1) = " " Then sData = sData & " " lCnt = lCnt + 1 If lCnt > 2 Then sData = RTrim$(sData) & " " End If Else sData = sData & Left$(sBuff, 1) lCnt = 0 End If sBuff = Mid$(sBuff, 2) Loop Debug.Print sData