[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『A列のセルの文字列の最後の文字が空白だった場合その空白を削除する』(kana)
もしA列のセル内の文字列の最後(右端)の文字が空白だった場合その空白を削除する
というプログラムが欲しいのですが一応自分なりに考えて試してみたのですが失敗してしまい、教えて頂ければと思い質問させて頂きました。
どうか宜しくお願いします。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
>一応自分なりに考えて試してみたのですが失敗してしまい
そのコードはアップできませんか? 修正したらいけるかもしれませんよ。 (カリーニン) 2017/10/15(日) 23:21
If Right(Columns("A:A"), 1) = " " Then ・・・・・・・ End If End Sub
申し訳ありませんが「・・・・・・」の部分は今そのファイルが無いのでどうやったか覚えていません。
それと空白としてしまいましたがスペースの間違いです。
(kana) 2017/10/15(日) 23:48
こんばんわ。
そのスペースは右端以外にもありますか? もし全てのスペースを削除して問題無いなら、EXCEL標準の置換機能で全てのセルのスペースを一括で削除できます。 マクロにしたいなら、それをマクロ記録すれば完成です。
途中などにも存在して、それは削除したくないなら、此方などを参考にして下さい。 http://www.moug.net/tech/exvba/0140031.html 此方のRTrimを使って、ループで1セルづつ削除とかですかね。
ループの仕方が分からないとかでしたら、再度質問して下さい。
(sy) 2017/10/16(月) 00:10
URLの物を参考にこのようなプログラムを作りましたがエラーは出ませんが実行しても何も変わりませんでした。
(kana) 2017/10/16(月) 10:16
>b = 1 >Do While b = 10
これじゃループしませんよ?
b = 1 Do a = Range("B" & b).Text Range("B" & b) = RTrim(a) b = b + 1 Loop While b<= 10
とか? (seiya) 2017/10/16(月) 10:35
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.