[[20171015224124]] 『A列のセルの文字列の最後の文字が空白だった場合ax(kana) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『A列のセルの文字列の最後の文字が空白だった場合その空白を削除する』(kana)

もしA列のセル内の文字列の最後(右端)の文字が空白だった場合その空白を削除する

というプログラムが欲しいのですが一応自分なりに考えて試してみたのですが失敗してしまい、教えて頂ければと思い質問させて頂きました。

どうか宜しくお願いします。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 >一応自分なりに考えて試してみたのですが失敗してしまい

 そのコードはアップできませんか?
 修正したらいけるかもしれませんよ。
(カリーニン) 2017/10/15(日) 23:21

Sub Macro1()
    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


Sub sample()
Dim a As String
b = 1
Do While b = 10
a = Range("B" & b).Text
Range("B" & b) = RTrim(a)
b = b + 1
Loop
End Sub

URLの物を参考にこのようなプログラムを作りましたがエラーは出ませんが実行しても何も変わりませんでした。

(kana) 2017/10/16(月) 10:16


すいません
一番最初ではA列と言っていますが上のプログラムではB列で試しました。
(kana) 2017/10/16(月) 10:26

 >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

できましたぁーヽ(;▽;)ノ
有難うございます!
助かりました。
(kana) 2017/10/16(月) 10:59

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.