■■■■■■■■　Page Navi ■■■■■■■■

ブログトップへ戻る

カテゴリ別に表示

サンプルファイル一覧

■■■■■■■■　記 事 No.[79]　Entry Start　■■■■■■■■

[ 前後・間の空白除去する、さらに半角に変換 / （trim） （replace） StrConv ]



今回は前後中の空白を取り除き、さらに半角に変換します。郵便番号を整えるのに使えると思います。

---

Sub trimTxt3()

　'========================================
　'前後・間の空白除去する、さらに半角に変換
　'========================================

　Dim myAds As Long

　Dim myTop As Long
　Dim myLst As Long

　Dim i As Long

　Dim myStr As String

　myAds = 1 '対象列 / A列の場合は「1」、B列の場合は「2」・・・
　myTop = 1 'データの開始行
　myLst = Cells(65536, myAds).End(xlUp).Row 'データの最終行


　'先頭行から最終行まで処理する

　For i = myTop To myLst

　　myStr = Trim(Cells(i, myAds)) '前後の空白を除去する
　　myStr = Replace(myStr, " ", "") '半角空白を除去（置換）
　　myStr = Replace(myStr, "　", "") '全角空白を除去（置換）
　　myStr = Replace(myStr, "ー", "-") 'ハイフン（置換）
　　myStr = Replace(myStr, "ｰ", "-") 'ハイフン（置換）

　　myStr = StrConv(myStr, vbNarrow) '全角を半角にする


　　'書式を文字列にしておく
　　Cells(i, myAds + 1).NumberFormatLocal = "@"

　　'除去後の値を隣のセルに転記
　　Cells(i, myAds + 1).Value = myStr

　Next i



End Sub

---