数式をまとめて変更したい

質問

＝A1
＝K1
＝h１
このような式を一気に

＝A1/1000
＝K1/1000
＝h１/1000
このように変更することは可能でしょうか？

回答No.4

tom04 · ベストアンサー

No.3です！
たびたびごめんなさい。

投稿後、気になったのですが、他の方法です。

どこか使っていないセルに　1000　と入力　→　そのセル上で右クリック　→　コピー
→　1/1000　にしたいセルを範囲指定　→　右クリック　→　形式を選択して貼り付け　→　「除算」を選択しOK

もしかしてこんな方法をご希望だったのでしょうか？

※　これも外していたらごめんなさいね。m(_ _)m

お礼

回答ありがとうございます。
これが期待していた回答のひとつになります。
これ以外にも、簡単に実現する方法があればお待ちしてます。

回答No.5

koko88okok

> =a1
> =b5
> の場合はどうすれば良いのでしょうか？

「置換」機能を使った下記の方法は如何ですか？

1) 対象のセル範囲を選択して、"="を"$" に「すべて変換」します。（E列とします。）
2) 第１の作業列に、"/1000" を同じ行数だけ入力します。（F列とします。）
3) 第２の作業列に、"=E1＆F1" を入力し、下にオートフィルコピーします。
　（"$A1/1000" のように表示されます。）
4) 第２の作業列のセル範囲を選択して「コピー」操作します。
5) 元のセル（E1）をアクティブにして、「形式を選択して貼り付け」から「値」を指定して「OK」で貼り付けます。
6) 貼り付けされたセル範囲が選択されていますので、"$"を"=" に「すべて置換」します。
7) 不要になった作業列を削除します。

注) 「置換」に使用した "$" は置換対象に使われていない文字であれば何でもOKです。

お礼

回答ありがとうございます。
これも使えそうですね

回答No.3

tom04

こんばんは！
外していたらごめんなさい。

数式そのものを変更したい訳ですかね？
もしそうであれば、VBAになってしまいますが、一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）
※　必ずセルを範囲指定してマクロを実行してください。

Sub Sample() 'この行から
Dim c As Range
For Each c In Selection
If c.HasFormula Then
c.Formula = c.Formula & "/1000"
End If
Next c
End Sub 'この行まで

※　数式が入っているセルだけに　「/1000」が追加されます。
（生データを範囲指定してもその値は変化しません）

※　単純な　=A1　のような数式セルだけを範囲指定しないと、
IF関数などを使用しているセルの場合等は滅茶苦茶な数式になってしまいます。

的外れならごめんなさいね。m(_ _)m

お礼

回答ありがとうございました。
今回の希望は、マクロを使わないことです。

回答No.2

ryo_ky

変更したいセル（数式が入力してあるセル）を選んで（ShiftキーやCtrlキーで複数選べるので）、Ctrl+Hで置換のウィンドウを出します。

その状態で変更前を「1」
変更後を「1/1000」
（1→1/1000になるので=A1なら=A1/1000となる）

とすれば出来ますよ。

お礼

回答ありがとうございます。

すみません。そういう意味では例が悪かったです。

=a1
=b5
の場合はどうすれば良いのでしょうか？

回答No.1

noname#226867

質問文のような統一感のある変更なら、以下の方法が簡単です。

変更したい数式の入っているセルを選択した状態で、Ctrlキーを押しながらＦキーを押して、検索と置換を出します。
タブを置換にして、「検索をする文字列」と言う項目に「1（半角の1）」を入力、「置換後の文字列」という項目に「1/1000」と入力します。
1を1/1000に置きかえるわけです。

お礼

回答ありがとうございます。

すみません。そういう意味では例が悪かったです。

=a1
=b5
の場合はどうすれば良いのでしょうか？