VBA シート名とセル位置の指定

質問

VBA（エクセル2007使用）にて、シート名とセルの位置を指定する場合の
コードの書き方を教えて頂きたいです。

連続した置換をしたいと思っているのですが、
置換前・置換後の文字を上手く記載することができません。

やろうとしていることの詳細は以下でございます。

■マクロ実行前の作業
(1)置換前・置換後の文字をエクセルに直接入力し、コピーする。
(2)置換対象範囲を選択しておく。

■マクロで作業する内容
(3)新規シート（シート名”置換用"）を追加し、(1)をA1に貼り付ける
(4)置換前の文字の個数を数える（何回置換の作業が必要かを数える）
(5)(2)の範囲内を置換していく

◇(5)の置換する作業の際に、別シートのセルを指定して置換していきたいのですが、
　 シート名とセルをどうのように記載すればよいかがわからず困っています。

かなり初歩的な質問かと思いますが、ご回答の程何卒宜しくお願い致します。

以下、作成したコードです。
--------------------------------------------------
Sub Macro4()

'元のシートに戻るための宣言”Sh1”
Dim Sh1 As Object
Set Sh1 = ActiveSheet

'置換用データ貼り付けシートの追加
Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
.Name = Format("置換用")
Sheets("置換用").Select

'置換用データの張り付け
Cells(1, 1).Select
ActiveSheet.Paste

'何回置換すればいいかの”KAISU”
Dim KAISU As Long

'KAISU用の関数（単純に何個あるかカウント）
Cells(1, 3).Select
ActiveCell.FormulaR1C1 = "=COUNTA(R1C1:R100C1)"

KAISU = Cells(1, 3)

'元のシートに戻る
Sh1.Select

'置換開始
For i = 1 To KAISU '↓ここをきちんと指定できれば上手く行くのではと思っています。。。

Selection.Replace What:=(sheets("置換用")cells(i,1)), Replacement:=(sheets("置換用")cells(i,2)), LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Next i

End Sub

回答No.1

keithin · ベストアンサー

とりあえずこんなカンジで。

sub macro1()
　dim Target as range
　dim i as long
　set target = selection

　if application.cutcopymode <> xlcopy then
　　msgbox "copy find/replacement"
　　exit sub
　end if

　with worksheets.add
’.name = "置換用"
　.range("A1").pastespecial

　for i = 1 to range("A65536").end(xlup).row
　target.replace what:=cells(i, "A"), replacement:=cells(i, "B"), lookat:=xlpart
　next i

　application.displayalerts = false
　.delete
　application.displayalerts = true
　end with
end sub

お礼

回答ありがとうございます。
まさに、やりたいことがこちらです！！！！

つたない文章・コードからやりたいことをくみ取って頂きましてありがとうございます。
私が作っていたものよりも、遥かに高度なテクニック満載で、自分の質問が恥ずかしくなります。。。
COUNTAのような関数をわざわざ入れる必要もないんですね。

はじめに、置換対象の文字をコピーしていなかったら、、メッセージが表示されるという個所も、
ご丁寧にありがとうございます。

1から10まで全て作成頂いてしまいました。本当にありがとうございます。

Dim Target As Range
Set Target = Selection　　⇒これで置換対象範囲を呼び出せるんですね。
　　　　　　　　　　　　　　　　シート名を選択しないで書いてみた事が無かったので大変勉強になりました。

全然”とりあえず”なんてものではございません！！！恐れ多いです。

すぐに回答もくださり、本当にありがとうございました！！！！

補足

ベストアンサー決定が遅くなってしまい申し訳ありません。
ボタンがきちんと押せていませんでした。。。。

ありがとうございます！！