• ベストアンサー

エクセルで計算式の答をほかの文字におきかえたい。

いつもお世話になります。 エクセル2003で困っています。 LOOKUPの計算式がはいっているセルの答によって また他の文字に自動で置き換えることは可能でしょうか? 説明がへたで申し訳ございません。 例えばセルにこの式がはいっていた時 LOOKUP($B11,seet2!$B$1:$d$200,2,FALSE) セルには”99”という文字が表示されます。 その”99”をさらにそのセル上で自動に”いちご”という文字にかえたいのです。 それと同時に#N/Aも セル上で”空欄”にするか”該当無し”という文字に置き換えることは可能でしょうか? 1回1回置換をする作業ではなく、最初からできるように設定したいのですが・・。 あいかわらず 説明が下手でもうしわけございませんが、 お力を貸して頂けたら嬉しいです。

noname#181205
noname#181205

質問者が選んだベストアンサー

  • ベストアンサー
  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.2

お書きになっている式がおかしくないですか? 多分こうだろうと修正し、ご要望の置換えをしました。 =IF(ISNA(VLOOKUP($B11,Sheet2!$B$1:$D$200,2,FALSE)),"該当無し",IF(VLOOKUP($B11,Sheet2!$B$1:$D$200,2,FALSE)=99,"苺",VLOOKUP($B11,Sheet2!$B$1:$D$200,2,FALSE)))

noname#181205
質問者

お礼

どうもありがとうございました。 LOOKUP関数が終わり、一応それで解決していたのですが、 翌日 次の”置き換え”という質問が発生してしまったため、書き方がおかしくなってしまったのかもしれません。 私がエクセルに無知なせいだとおもいますが・・。 すいません。一括で計算式ができるのですね。 親切に答えて頂きどうもありがとうございます。

その他の回答 (1)

  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.1

関数を間違えてますね。 =VLOOKUP($B11,seet2!$B$1:$d$200,2,FALSE) だと思います。LOOKUPを使う場合は =LOOKUP($B11,seet2!$B$1:$B$200,seet2!$C$1:$C$200) ですがこれはVLOOKUPの最後の因数がTRUEと同じ動作になります。

noname#181205
質問者

お礼

ありがとうございました。 LOOKUP関数からすこしおかしかったみたいですね。 一応できたとおもっていたのが間違いでした。 親切に答えて頂きどうもありがとうございます。

関連するQ&A

  • エクセルの計算式の答えを文字列にできますか?

    エクセルに詳しい方に質問です。 エクセルの計算式(LOOKUP)の答えとして、"A"と表示されているセルがあるとします。 当然参照するデータを"A"から"B"変更すると 計算式の入っているセルも"B"と変わるのですが、、、 これが変わらない様にする、つまり"A"というのを計算式の答えではなく文字にすることはできるのでしょうか? 手打ちで変更するには量が多いもので。。。 よい方法をご存知の方、アドバイスお願い致します。

  • エクセルの計算式で

    エクセルの計算式でこんな計算はできるのでしょうか? どの関数を使えばできのるかわからないのです・・・ ご存知の方教えていただけますか?よろしくお願いします。 SEET1にこのような表があります。    A    B   C 1  3:00   1   20 2  4:00   10  34 3  7:00   8   6 4  8:00   9   7 5  9:00   7   5 6  10:00  6   3  7   ・ 8   ・ これを別の表でSEET2に集計をしたいのです。 SEET2ではこのように集計をしたいのです。    A    B    C 1  7:00   19   60 2  8:00    9   7 3  9:00    7   5  4  10:00   6   3 5    ・ 6    ・ SEET1のA列の時間は3:00の時もあれば2:00の時もあり、時間は固定ではないのです・・・日々変動します。最大で1:00~7:00です。 これをSEET1のA列の時間が1:00~7:00であればのSEET2のB1に8:00であればSEET2のB2のセルへ集計するといった関数はあるのでしょうか? 説明がわかりにくかもしれませんが教えていただけますか?よろしくお願いします。

  • 文字列の置換

    AファイルのA1セルからBファイルのC1セルにデータを反映させたとします。 その際に以下のように文字列を複数置換させたいのです。 A1セル   C1セル りんご → みかん みかん → ぶどう なし  → 空欄 空欄  → 空欄 上記のようにセルのデータを複数置換することはできるのでしょうか? 又、置換できるならどの関数を使えばよいのでしょうか?

  • セルに入力した文字を別のシートで置換する方法

    複数置換を行いたいと思い、以下のマクロを作成しました。 If Range("B18") <> "" Then Cells.Replace what:=Range("B18"), replacement:=Range("D18") end if B18のセルが空欄ではない場合、 そのセルに入った文字を検索し、別の文字に変換するというものです。 1つや2つほどであれば、ショートカットキーを使って 置換をしていけば良いと思うのですが、 10項目以上、置換しなくてはならず同時処理を行いたいと思っています。 ただし、その10項目については対象ファイルごとにバラバラで、 統一性がないため、VBAの中に組み込むよりかは、 置換したい文字を各セルに入れていき、置換できればと思い、 マクロの作成を行いました。 ただ、上のマクロでは同じファイルではないと処理ができません。 ActiveSheetを使って処理を行うとは思うのですが、どのように記述してよいか分かりません。 お力添えを頂ければと思います。 上記内容で分かり辛いかもしれませんので、以下に箇条書きします。 1)複数置換を行いたい。 2)Aセルに置換対象の文字を入れ、Bセルに置換したい文字を入れる。 3)実行すると全シート上でA1セルに入力された文字を検索し、B1セルに入力してある文字に置き換わる。 4)これらの処理は同一ファイルで行うのではなく、それぞれ別ファイルで管理をする。 ※対象ファイルと実行データが別々のもの 以上です。 説明が分かりにくく、申し訳ありません。 もしVBAで以上のような処理が可能な場合、ご教授頂けますと幸いです。 (使用しているバージョンは、2003です。)

  • エクセルで指定した文字に自動で置換することは可能ですか??

    A1セルに「バナナ」と表示されると下のマクロの記録で作った”置換するマクロ”の「りんご」の部分を「バナナ」に変更し、さらにこの置換マクロを自動実行することはできますか?? Sub Macro1()' Cells.Select Selection.Replace What:="名前(1)", Replacement:="りんご", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("A1").Select End Sub このマクロの記録でなくてもいいんですが、あるセルに置換したい文字が表示された時点でシート内の置換が実行されるようにしたいんですけど・・・・・。 よろしくお願いします。

  • エクセル(置換)

    文字の置換をしたいのですが検索→置換ができません。 セルの書式設定でも上手くできませんでした。 どのような方法がありますか? 表には空欄もあります。 置換したいのはそれぞれの縦列です。 置換前の文字(数字)は異なっています。 よろしくお願いします。

  • Excelでこんな計算がした!(T-T)

    私はExcel2003を使っています。 教えて欲しいのですが、A1のセルに例えば19,600と入力しています。 B1のセルでA1のセルよりも9%高い数字を求めるのにB1のセルに =A1/0.991と入力しています。 この値が19778になります。 ここで、78は切り捨てて19700になるようにしたいのです。 説明が下手で申し訳ないのですが、急いでいますのでどなたか 助けて下さい。 よろしくお願いします。

  • Excelで置換した文字に色をつけたい

    よろしくお願いします Excelで、「対象シート」のB列を参照して、 「置換リスト」シートの一覧のC列の文字列をE列の文字列に置換するようにしています。 「対象シート」のA列には置換前のデータも入っているので、 「対象シート」のA列、B列それぞれの置換前、置換後の文字列に色をつけたいと思っています。 どの文字がどの文字に置換されたかを比較するためです。 置換後のB列のみ下記式で色をつけられたのですが、 該当文字が含まれる、セル内全部の文字の色が変わってしまいました。 該当文字だけの色を変えるにはどうすればよいでしょうか。 また、「置換リスト」シートのC列にある場は「対象シート」のA列の該当文字のみを赤くする方法も教えていただけないでしょうか。 Sub list置換_Click() Dim list_sheet As Worksheet Dim chg_sheet As Worksheet 'こっちは置換する元の文字と置換文字のリスト Set list_sheet = Worksheets("置換リスト") 'こっちは一括置換したい対象のシート Set chg_sheet = Worksheets("対象シート") cnt = list_sheet.Range("c4").CurrentRegion.Rows.Count For i = 4 To cnt srcword = list_sheet.Cells(i, "C").Value repword = list_sheet.Cells(i, "E").Value With Application.ReplaceFormat.Font .Subscript = False .Color = 255 .TintAndShade = 0 End With Columns("B:B").Replace What:=srcword, Replacement:=repword, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=True Next i End Sub よろしくお願いいたします。

  • excelで置換をしたいんですが

    excelで置換をしたいんですが、SUBSTITUTE関数を使うとワイルドカードが使えずうまくいきません たとえば、 和歌山県産オレンジ 3個 サンキスト オレンジ 入荷済み 2008年オレンジ 愛知産いちご 53個 ほのか いちご 入荷済み 2011年生産 いちご を、置換で全ての文字をオレンジが入力されたセルはオレンジのみ、 いちごが入力されたセルはいちごだけにすることはできますか? ctrl+Hで、検索する文字列に*オレンジ*と入力して実行してもうまくいかないです。。。 

  • エクセル2003で特殊文字の置換方法

    エクセル2003、XPを使用しています。 エクセルのマクロで置換をしているのですが、 置換対象がCHAR(160)です。 セル上に上のを打ち込むと、実際は違いますが半角スペースに見えます。 特殊文字であっているのでしょうか。 それで、この文字を消したいと思い、以下の通りマクロで記述しているのですが、成功しません おわかりになる方いらしたらよろしくお願いします。 Cells.Replace What:=Chr(160), Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

専門家に質問してみよう