fromd

カテゴリ

  EXCEL関連

•  文字列の結合
•  文字列の置換
•  セル前後のスペースを一気に削除
•  セル内改行を一気に削除
•  住所から都道府県名を取り出すには
•  特定の文字以降を削除する方法
•  郵便番号、電話番号、FAX番号の妥当性チェック
•  ある条件を満たしたデータ件数カウント
•  データを決まった桁数に統一したい
•  非表示の行や列をコピーしたくない
•  メールの妥当性チェック
•  手書き誤字置換
•  シート数カウント＆シート名取得
•  多数のシートを一気に作成したい
•  リンク先URLを一気に取得したい
•  URLから最後のPDFファイル名部分だけを抜き出す
•  セル内のスペースをカウントする
•  既存データの右側にアンケート情報を入力したい（既存データと画像順が一致しない）

セル前後のスペースを一気に削除

・方法：TrimStr.xlaを利用する

■解説：

データには、余計なスペースがたくさん入っている場合は、綺麗にさせたいために、手動でコツコツ削除したりしていませんか。
そんな時間はもったいないです。

「TrimStr.xla」を利用すれば、ワンクリックで作業終了です。



信じられない程、強力で使いやすいツールです。
この拡張子はアドインファイルとして、EXCELのアドインに登録しておく必要がありますが、一度登録しておけば、後は簡単に使えます。
とはいえ、「TrimStr.xla」は20数年前に、日本のある方が作ったフリーなものです。
当社製ではないので、堂々と人に紹介することが出来ません。

ただし、マクロ機能が有効な形式（TrimString.xlsm）として保存して、利用時に開いておけば、ほぼ同じ事が出来ます。
中身は、↓↓↓これだけです。

**********************************************
Option Explicit

Sub TrimString()
' 選択しているセルの前後の空白を取り除く

Dim targetCell As Range

For Each targetCell In Selection'選択範囲の全セル
With targetCell
.Value = Trim(.Value) '前後の空白を削除
End With
Next
End Sub
**********************************************

ちなみに、「TrimStr.xla」や上記の「TrimString.xlsm」が欲しい方には、差し上げますので、 メール（sun@fromd.com）で当社へご連絡ください。