数値の置き換えについて

質問

エクセルにおいてランダムにある数値の内200以上の数値はすべて200に置き換える方法を教えてください。

回答No.2

M_Sato · ベストアンサー

次のようにすればできませんか？

１）たとえばＡ列でＡ１以下に数値があるとします。
２）Ｂ列のＢ１に=if(A1>200,200,A1)と数式を入力します。
３）この式をＢ２以下にコピーします。
４）次にＢ列の式すべてをコピーします。
５）Ａ列に「値」を貼り付けします（「式」ではなくて）。
６）Ｂ列の式は不要なので削除します。

回答No.4

msMike

添付図上段(１番目)のように範囲 A1:L3 に「ランダムにある」と仮定します。
１．セル R1 に式 =IF(A1>=200,200,"X") を入力して、此れを右方および下方にズズーッとドラッグ＆ペースト
この結果が添付図２番目
２．範囲 R1:AC3 を選択して、[コピー]＆[値の貼り付け]
３．範囲 R1:AC3 を選択して、[ジャンプ]→[セル選択]を実行
４．“定数”に目玉入れた後で、“文字列”以外のチェック外し
５．[OK]をツンした後で、Deleteキーを「エイヤッ！」と叩き付け
この結果が添付図３番目
６．範囲 R1:AC3 を選択して、Ctrl+V をパシーッ
７．セル A1 を選択してマウスの右クリックから[形式を選択して貼り付け]をツン
８．“空白セルを無視する”にチェック入れて、[OK]をツン
この結果が添付図４番目

回答No.3

lupin-33333

Sub aaaa()
　Dim rg As Range
　　For Each rg In ActiveSheet.UsedRange
　　　If IsNumeric(rg.Value) = True Then
　　　　 If rg.Value >= 200 Then
　　　　　　 rg.Value = 200
　　　　End If
　　　End If
　　Next rg
End Sub

とかなら。

回答No.1

naoto0216

置き換える＝書き換える　ってことでしょうか。
でしたら恐らくVBAを使うしかないと思います。

単純に200以上のものを「200に見せる」だけで
よければ、以下の方法で簡単に出来ます。

1.ランダムということなので、シート全体を選択し
　セルの書式設定を開きます。

2.[表示形式]タブにあるユーザー定義を選択し、
　右側の種類の箇所に　[>200]"200";0;@　を入力しOK。

これで200以上のセルは「200」に見えるようになります。

なお、この状態で置き換えしようとしても(例えば200を200で
置換)、実際には元の数値が入力されているので置換出来ません。
また、コピーして別の箇所に貼り付けても元の数値がコピー
されるだけです。