[EXCEL97] セルの中身を一括変更する方法を教えてください。

質問

エクセル９７について質問です。

Sheet1のC8に 式１
Sheet2のC8に 式２
Sheet3のC8に 式３
.
.
.
がはいっています。

式１を IF(ISERROR(式１),"-",式１）へ、
式２を IF(ISERROR(式２),"-",式２）へ
.
.
.
といったように一括変換する方法はありませんでしょうか？ 大量のデータがあり、手作業で直すのは大変な状況です。工夫すればすぐにできそうなのですが、初心者であり、思い付きません。 宜しくお願いします。

回答No.6

papayuka · ベストアンサー

こんにちは。
マクロの使い方が解るなら、、、

Sub Test()
Dim ws As Worksheet, r As Range, s As String
For Each ws In Worksheets
　Set r = ws.Range("C8")
　If r.HasFormula = True Then
　　 s = Mid(r.Formula, 2, Len(r.Formula))
　　 r.Formula = "=IF(ISERROR(" & s & _
　　　　　　　 　　"),""-""," & s & ")"
　End If
Next ws
End Sub

２度実行してはダメですよ。

お礼

ありがとうございます。直接的な答えですね。仕事がはかどりました。また何かのときはよろしくおねがいします！

回答No.5

nihonjinn

条件書式を使えばいいのではないでしょうか。「書式」→「条件付き書式」で「数式が」を=ISERROR(C8)にし、書式を文字を白にするなりしてやればいいと思います。これをシートを一括選択して行えば早いです。

お礼

すばやいご返答ありがとうございました！
感謝してます

回答No.4

Hageoyadi

式の中身に限らず、文字の並び方がほかにどこでも使われていないのでしたら、Ctrl+Hで起動する置換がつかえるはずです。
置換ウィンドウ内はデフォルトではクリップボード内を貼り付けることが出来ず、手で入力する必要がありますが、これもクリップボードユーティリティ関連のフリーソフトで対処できます。

お礼

さっそくの御返事ありがとうございました。
置換コマンド便利ですね！

回答No.3

dejiji-

シート内の式を置換してしまえば可能です。
編集から置換を選択し、検索する文字列に変えたい式を入力（＝から全て入れてください。）置換後の文字列に変更後の式を入力する。この時、右にあるチェックボックスは全てチェックを外しておいた方が良いでしょう。後は、全て置換を押し完了です。
但し、同一シート内だけで置換が出来ますから、各シート別に置換を行わなければいけませんが。

回答No.2

nihonjinn

同じセルで同じ数式なら変更したいセルを選んでからCtrlキーを押しながら他のシートをクリックして選択してから入力すると一括して他のシートにも入力できるんですけどね。

回答No.1

PAPA0427

どれか一つセルを変更したい式に変えてください。そのセルをコピーしてください。

その状態から、コピーさせたいセルを、ドラッグして範囲指定してください。

右クリック→「形式を選択して貼付け」→「数式」チェックして、「ＯＫ」ボタンで式だけコピーできます。

sheet2もsheet3同様にしてください。

お礼

すばやい御返事ありがとうございました。