複数のセルの引数を絶対参照にする方法

質問

エクセル２０１０を使っています。
複数のセルの最初の引数を一度に絶対参照にしたいです。

やりたいことを、添付した図で具体的に説明します。

この図には、frame1,frame2,frame3,の3つの基本の表（A列からD列の部分）があります。
また、frameX（I列からL列の部分）もあります。

今、作業は、E列からH列で行なっています。
まず、
F3には、=IF(J3=0,0,B3)
G3には、=IF(K3=0,0,C3)
・・・
H7には、=IF(L7=0,0,D7)
という関数を入れました。

この後、E1からH7を、コピー貼り付けして、
frame3-2までを完成したいです。
ですが、このままですと、frame2-2も、frame3-2も、それぞれの５行３列の値は全て０になってしまいます。

そこで、
F3には、=IF($J$3=0,0,B3)
G3には、=IF($K$3=0,0,C3)
・・・
H7には、=IF($L$7=0,0,D7)
と、５行３列に入れた（１５個のセルの）、最初の引数を絶対参照にしたいです。

（実際の表は37行45列で、frameの数が200あります。）

複数のセルに入っている、最初の引数を一度に絶対参照にする方法はあるのでしょうか？

よろしくお願いします。

回答No.2

keithin · ベストアンサー

数式を並べた後、Ｃｔｒｌ＋ＨでJを$J$に、Kを$K$に、Lを$L$に、それぞれすべて置換するとできます。
が、まぁ４５列もやってるとメンドクサイので、代わりにマクロでやらせてみます。

手順：
Ｆ３に
=IF(J3=0,0,B3)
を記入し、Ｈ７までコピー貼り付ける

ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim h as range
　dim s as string
　for each h in range("J1:L1")
　　s = application.substitute(h.address(false, false), "1", "")
　　range("F:H").replace what:=s, replacement:="$" & s & "$"
　next
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＴ＋Ｆ８を押してマクロを実行する。

お礼

とてもかんたんにできました。
ありがとうございました。

回答No.1

bin-chan

最初に、ダミーの式を入力・コピーしておいて、Ctrl+Hで置換するとか。

お礼

ありがとうございました。