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

名前

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

本文 サンプルコードです。 --------------------------------------- Dim strArray() As String Dim intCount As Integer a = Split("1△2△△3△△△4△△△△5△△△△△6", " ") For intCount = 0 To UBound(strArray) strArray(intCount) = Trim(strArray(intCount)) Next Debug.Print Join(strArray) 出力結果： "1△2△△3△4△5△6"