エクセル2000で教えてほしいことがあります。

質問

こんばんわ、エクセル2000を使用しています

「～には」とある文字列の「～」の前に中点をつけたいのですが、
関数で処理できるでしょうか？
いろいろ調べているのですが、関数の扱いにもなれておらず、どうしてよいのか
わかりません。
どなたか親切な方がいらっしゃいましたら教えていただけませんでしょうか？

どうしたいのか、下記に例を記します。

「平行な2直線に接する円弧を作るには 」（修正前）

　　　　　　　　↓

「・平行な2直線に接する円弧を作るには」（修正後）

という具合です。
よろしくお願い致します。

回答No.6

arata

マクロを作ってみました。
結構無限ループにはまったりして楽しめました。
現在アクティブなシートの全てのセルに対して処理します。

Sub Test1()
'
' 「には」を含む行の先頭に「・」を付加するマクロ
'
　　Dim rng As Range
　　Dim rngFirst As Range
　　Dim strStartAddress As String
　　'現在アクティブなシートに対して最初の検索
　　Set rng = ActiveSheet.Cells.Find(What:="には", _
　　　　LookIn:=xlValues, _
　　　　lookat:=xlPart)
　　If rng Is Nothing Then
　　　　'みつからなかったら終了
　　Else
　　　　'見つかったら最初のアドレスを保存
　　　　strStartAddress = rng.Address
　　　　'検索が一周して、最初のアドレスに戻ってきたら終了
　　　　Do
　　　　　　'計算式が入っているところを修正してしまうとまずいので
　　　　　　'計算式と値がいっしょのところの場合、修正
　　　　　　If rng.Value = rng.Formula Then
　　　　　　　　rng.Value = "・" & rng.Value
　　　　　　End If
　　　　　　'次を検索
　　　　　　Set rng = ActiveSheet.Cells.Find(What:="には", _
　　　　　　　　after:=rng, LookIn:=xlValues, _
　　　　　　　　lookat:=xlPart)
　　　　Loop Until rng.Address = strStartAddress
　　End If
End Sub

上記のプログラムは、見やすくするために行の先頭に全角のスペースを入れています（半角スペースだと、インデントがなくなってしまうため）ので、行の先頭の全角スペースを半角スペースに置き換えてから実行してください。

お礼

有難うございます。
とてもわかりやすく説明していただき感謝しております。
お礼が遅くなって申し訳ありませんでした。