Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1219 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【75617】文字置換したいのですが。。。 (´･д･`) 14/5/27(火) 11:09 質問[未読]
【75618】Re:文字置換したいのですが。。。 yuto 14/5/27(火) 12:37 発言[未読]
【75619】Re:文字置換したいのですが。。。 (´･д･`) 14/5/27(火) 14:19 質問[未読]
【75622】Re:文字置換したいのですが。。。 yuto 14/5/27(火) 21:22 発言[未読]
【75620】Re:文字置換したいのですが。。。 Yuki 14/5/27(火) 15:21 発言[未読]
【75621】Re:文字置換したいのですが。。。 yuto 14/5/27(火) 19:26 発言[未読]
【75625】Re:文字置換したいのですが。。。 (･∀･) 14/5/28(水) 13:32 お礼[未読]
【75617】文字置換したいのですが。。。
質問  (´･д･`)  - 14/5/27(火) 11:09 -
引用なし
パスワード
   いつもお世話になっております。
文字の"す"を"あ"に置換したいのですがうまくいきません。
何がいけないのでしょうか？？お願いいたします。

　A　　　　B
　　　　
2　　　　あいす
3　　　　するめ
4　　　　すいか
5　　　　すし
6　　　　すずめ
7　　　　すらいだー
8　　　　すすき
9　　　　めす


Sub りぷれす_てすと()

Dim i
Dim rpl

For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1

rpl = Cells(i, 2).Value
rpl = Replace(rpl, "す", "あ")

Next

End Sub
【75618】Re:文字置換したいのですが。。。
発言  yuto  - 14/5/27(火) 12:37 -
引用なし
パスワード
   内部の変数rplは、正しく変化しているようです。

出力先を指定していないので、何も変わらない
だけではないでしょうか。
【75619】Re:文字置換したいのですが。。。
質問  (´･д･`)  - 14/5/27(火) 14:19 -
引用なし
パスワード
   ▼yuto さん：

ありがとうございます。
あほなので理解できないのですが
出力先を指定とは具体的に何をすればいいのですか？？
【75620】Re:文字置換したいのですが。。。
発言  Yuki  - 14/5/27(火) 15:21 -
引用なし
パスワード
   こんにちは。

こんな方法でも Resize(100)の100は最下行を入れてね
Range("B" & rows.Count).end(xlup).row とかで

With Worksheets("Sheet1")
　　.Range("B1").Resize(100).Replace What:="す", Replacement:="あ", _
　　　　　　　　　　　　LookAt:=xlPart, SearchOrder:=xlByRows, _
　　　　　　　　　　　　MatchCase:=False, SearchFormat:=False, _
　　　　　　　　　　　　ReplaceFormat:=False
End With

それとyuto さんのコメントは
変数上でかわっていてもシート上にでていないからですよ
Cells(i, 2).Value = Replace(Cells(i, 2).Value,"す","あ")
こんな感じで
【75621】Re:文字置換したいのですが。。。
発言  yuto  - 14/5/27(火) 19:26 -
引用なし
パスワード
   Yukiさん
フォローありがとうございます。
モバイルからだったので、コードが提示し難かったので助かりました。
【75622】Re:文字置換したいのですが。。。
発言  yuto  - 14/5/27(火) 21:22 -
引用なし
パスワード
   ▼(´･д･`) さん：

既に、Yukiさんの方から適切な例が提示されていますが...
参考までに記述しておきます。

> rpl = Replace(rpl, "す", "あ")

上記の式は、左辺へ置換した結果を代入するという記述になります。

表示したい部分を左辺へ明示する必要があるので、
rplという変数の中身を置き換えるという動きになっていました。

B列の文字を置き換えた結果をC列に表示するという場合は以下の様に
記述することができます。

　Cells(i, 3).Value = Replace(Cells(i, 2).Value, "す", "あ")

B列の中身を置き換える例は、すでに提示していただいているので
割愛します。
【75625】Re:文字置換したいのですが。。。
お礼  (･∀･)  - 14/5/28(水) 13:32 -
引用なし
パスワード
   YUTOさんYUKIさん
ありがとうございます!!!
出来ました！！！
今後ともお願いいたします！！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1219 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free