エクセルの置換

質問

sheet1のデータ抽出表の関数に
=SUMIFS(sheet2!$P:$P,!$Y:$Y,">=2015/12/1",sheet2!$Y:$Y,"<=2015/12/31",sheet2!$U:$U,$B$2,sheet2!$A:$A,"東京")
で、期間（日付）のみ変えたセルが約80あります。
この関数で期間設定はそのままで、該当都市を"東京""大阪""福岡"のOR条件で抽出するよう関数を置き換えたいと思います。
上記関数ならば
=SUM(SUMIFS(sheet2!$P:$P,!$Y:$Y,">=2015/12/1",sheet2!$Y:$Y,"<=2015/12/31",sheet2!$U:$U,$B$2,sheet2!$A:$A,{"東京","大阪","福岡"}))
と言うような感じです。
そこでワイルドカードを使用し置換を
SUMIFS*"東京") →　SUM(SUMIFS*{"東京","大阪","福岡"}))
で実施させたところエラー発生で出来ませんでした。
一括で約８０セルの関数置換を行いたいのですが、方法をご教授願います。

回答No.5

kkkkkm · ベストアンサー

No4の訂正です

以下の方が手順が少なくて済みました。

=S
を
#S　　#でなくても式中や他にない適当な文字

"東京")
を
{"東京","大阪","福岡"}))

#SUMIFS
を
=SUM(SUMIFS

お礼

該当セルを全て選択し、kkkkkmさんの方法でうまく置換出来ました。ありがとうございました。助かりました。

回答No.4

kkkkkm

No1です。

SUMIFSをSUM(SUMIFSにを見逃してました
No1だと後ろだけですね。

手動だと

=S
を
#S　　#でなくても式中や他にない適当な文字

SUMIFS
を
SUM(SUMIFS

"東京")
を
{"東京","大阪","福岡"}))

#
を
=

のように置換したらいけると思います。

回答No.3

masnoske

マクロを使って良いなら以下のコードで置換できます．
全ての関数を置換するには rng を For Each Next でループ処理してください．

Sub test()
Dim rng As Range
Dim str As String

Set rng = Range("A1")
str = rng.Formula
str = Replace(str, "SUMIF", "SUM(SUMIF")
str = Replace(str, """東京"")", "{""東京"",""大阪"",""福岡""}))")
rng.Value = str
End Sub

お礼

追加回答ありがとうございます。私にとってマクロはハードルが高いので、kkkkkmさんの回答をベストアンサーにさせていただきました。もっとスキルを上げてマクロにも挑戦したいと思います。本当にありがとうございました。

回答No.2

masnoske

ワイルドカードが使えるのは「検索する文字列」の欄だけです．
置換後の文字列にワイルドカードは使えません．
このケースは Excelの置換機能では無理だと思います．
面倒ですが以下の方法でするのが早いかと思います．

数式を FORMULATEXT関数で文字列に変換
文字列をメモ帳などにコピーして該当箇所を置換（Windows標準のメモ帳はワイルドカードが使えません）
置換した文字列を Excelに貼り付け

お礼

ご回答ありがとうございます。地道に変更するしかないですね。

回答No.1

kkkkkm

"東京") →　{"東京","大阪","福岡"})

で置換してみてはいかがでしょう。