Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
958 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【77406】１字消す ﾄｷﾉﾊｼﾞﾒ 15/9/9(水) 16:52 質問[未読]
【77407】Re:１字消す β 15/9/9(水) 17:07 発言[未読]
【77408】Re:１字消す ﾄｷﾉﾊｼﾞﾒ 15/9/11(金) 12:33 お礼[未読]
【77406】１字消す
質問  ﾄｷﾉﾊｼﾞﾒ  - 15/9/9(水) 16:52 -
引用なし
パスワード
   いつもお世話になります。セルが２０・苅阿阿蕕い△辰ﾆ
それぞれにカタカナの名前があって、字数は３〜９文字ぐらいですが、それら
の名前の最後に☆印が付いているのですが、その☆印のみを消したいのですが
(例・・・ヤマモト☆)　　A1:T40　まで
なにを使えば良いのか教えて下さい 。
宜しくおねがいいたします。
【77407】Re:１字消す
発言  β  - 15/9/9(水) 17:07 -
引用なし
パスワード
   ▼ﾄｷﾉﾊｼﾞﾒ さん：

文字化けが激しいのですが、特殊な文字で質問文を書いておられるのでしょうか？

もし、A1:T40 の範囲のセルにある　☆を（場所はどこでも）無条件に消したいなら
範囲を選んで、置換。置換前文字が　☆、置換後は空白のままにして実行。
これをマクロ記録。

やはり、文字列の最後にある☆だけを消したいなら、その範囲のセルをループで１つずつ
☆があるかどうか判定して、あれば消す。
この判定は　Right(その文字列,1) が　☆　かどうかをきいてやればいいですし、
消すのは、いろんな方法がありますが、簡単なのは Left(その文字列,Len(その文字列)-1) で置き換えるといったことでしょうかね。
【77408】Re:１字消す
お礼  ﾄｷﾉﾊｼﾞﾒ  - 15/9/11(金) 12:33 -
引用なし
パスワード
   ▼β さん：
お返事有難うございました。

何とかうまくできました。

今後とも宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
958 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free