人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBAについて質問です。

現在I列に名前のデータが入っています。
しかし、名前のデータの最後には半角スペースが全部入っおり、
この半角スペースをどうしても削除したいのですが、やり方が分からず困っております。
置換を用いて実行してみようと思ったのですが、置換で消えない半角スペースでした。
そこでやり方として、I1?Iのデータが入っている最終行まで、
ひとつひとつのセルに入っていって一回だけBackSpaceキーを押すという処理を施したいのですがそのようなことは可能でしょうか?
もしくはその他のやり方として、最後の半角スペースを削除する方法はありますでしょうか。

お手数をおかけしますがわかるかたおりましたらご回答をお待ちしております。

●質問者: aiomock
●カテゴリ:コンピュータ インターネット
✍キーワード:VBA ひとつ キー セル データ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● Mook
●100ポイント ベストアンサー

前後のスペースを取り除くのは Trim 関数を使用します。

(右だけなら RTrim)


下記のコードで希望通りになりますか。

Sub TrimI()
 Dim lastRow As Long
 lastRow = Range("I" & Rows.Count).End(xlUp).Row
 For r = 1 To lastRow
 Cells(r, "I").Value = Trim(Cells(r, "I").Value)
 Next
End Sub
◎質問者からの返答

ご回答ありがとうございます。

プログラム実行してみましたがうまく取り除くことができません。

置換でも取り除けない半角スペースなので何か特殊な半角スペースなのでしょうか?

あああ ああ?(半角スペース)の様なデータなのですが。。。


2 ● chinjoh
●100ポイント

TABコードが入ってるのでは?

それか改行コード

◎質問者からの返答

ご回答ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ