Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50618 / 76732

←次へ　｜　前へ→


	【30999】文字置換のループ処理で解決ですか？

komo - 05/11/8(火) 22:58 -


	引用なし

	パスワード

はじめまして、マクロ＋文字置換を模索中でここへたどりつきました。。

A　　　　　　B
1234　　=ABC|@DEF
4321　　=ABC|@DEF
2222　　=ABC|@DEF
4567　　=ABC|@DEF
3345　　=ABC|@DEF
2346　　=ABC|@DEF

A列の数字を参照し、置換でB列の＠にA列の数字を記入したいと考えております。
A列の数字はランダムに変化。A列の行数も毎回異なります。

Sub Macro1()
Range("A1").Select
Selection.Copy
Cells.Replace What:="@", Replacement:="1234", LookAt:=xlPart, _
　　　　SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
　　　　ReplaceFormat:=False
End Sub

マクロで置換操作を記入しましたが、初心者のためループ処理記述でとまっております。
ご教授願えませんでしょうか。よろしくお願いいたします。

0 hits

▼

【30999】文字置換のループ処理で解決ですか？ komo 05/11/8(火) 22:58

≪