[[20180515224030]]　『あるセルが空欄の場合に、特定のセルを参照したい』（イカの木の芽和え）　ページの最後に飛ぶ

『あるセルが空欄の場合に、特定のセルを参照したい』（イカの木の芽和え）

お知恵をお貸し頂けませんでしょうか。

下記のようなデータが入ったセルがあります。

【例１】
　　　　　Ａ列　　　　　Ｂ列　　　　　Ｃ列　　　　　　　Ｄ列
１行　　　山田商店　　　５月10日　　　パソコン　　　　　10万円
２行　　　　　　　　　　５月15日　　　スキャナ　　　　　５万円
３行　　　　　　　　　　　　　　　　　USBケーブル　　　1000円
４行　　　田中商会　　　５月１日　　　マウス　　　　　　 2500円
５行　　　鈴木興業　　　５月８日　　　キーボード　　　　 18000円
６行　　　　　　　　　　　　　　　　　デジカメ　　　　　 37000円

ご説明するまでもないかと思いますが、Ａ２とＡ３が空欄なのは、Ａ１と同じ「山田商店」を省略しているということです。同じように、Ｂ３が空欄なのは、Ｂ２と同じ「５月15日」を省略しているということです。同様に、Ａ６はＡ５と同じ「鈴木興業」が、Ｂ６はＢ５と同じ「５月８日」が省略されています。

これを下記のような、省略なしの形に変えたいと思っています。

【例２】
　　　　　Ａ列　　　　　Ｂ列　　　　　Ｃ列　　　　　　　Ｄ列
１行　　　山田商店　　　５月10日　　　パソコン　　　　　10万円
２行　　　山田商店　　　５月15日　　　スキャナ　　　　　５万円
３行　　　山田商店　　　５月15日　　　USBケーブル　　 1000円
４行　　　田中商会　　　５月１日　　　マウス　　　　　　 2500円
５行　　　鈴木興業　　　５月８日　　　キーボード　　　　 18000円
６行　　　鈴木興業　　　５月８日　　　デジカメ　　　　　 37000円

現在のところは、
１．Ａ１セルを選択してＡ２、Ａ３へドラッグ → Ａ２とＡ３に「山田商店」が入る
２．Ｂ２を選択してＢ３へ Ctrl＋ドラッグ → Ｂ３に「５月15日」が入る
３．Ａ５とＢ５を選択してＡ６、Ｂ６へ Ctrl＋ドラッグ → Ａ６、Ｂ６にそれぞれ「鈴木興業」、「５月８日」が入る
といった処理の仕方をしています。実際にはもっとデータの数が多いので、全部を処理するとなると結構な時間がかかりますので、これを関数で処理したいと考えています。

元データがSheet1に入っているとして、Sheet2に、例えば下記のような関数を入れることで処理できないかと思っています。

Sheet2のＡ１　　　「Sheet1のＡ１に何かデータが入っていれば、それをそのままSheet2のＡ１に入れる」という処理をしてくれる関数（原則、Sheet1のＡ１とＡ２が空欄ということはないので、これは=Sheet1!A1でいいのではないかと思っています）

Sheet2のＡ２　　　前記Sheet2のＡ１と同じ考え方で関数を入れる

Sheet2のＡ２　　　「もしSheet1のＡ２に何かデータが入っていれば、それをそのままSheet2のＡ２に入れるが、もしSheet1のＡ２が空欄であれば、Sheet1のＡ１の値を入れる」という処理をしてくれる関数を入れる

Sheet2のＡ３　　　「もしSheet1のＡ３に何かデータが入っていれば、それをそのままSheet2のＡ３に入れるが、もしSheet1のＡ３が空欄であれば、Sheet1のＡ１の値を入れる」という処理をしてくれる関数を入れる

Ｂ列についても、同じ考え方で関数を入れます。

Ａ列やＢ列のうち空欄のセル（【例１】のＡ２やＡ３とかＢ３とか）がある行が何行続くかは一定していません。【例１】の４行目から５行目のように、空欄のセルがないまま次に続く場合もありますし、空欄のある行が10行以上続くような場合もあります。Ａ列だけが空欄の行が何行続くかとか、Ａ列もＢ列も空欄の行が何行続くかも一定していません。

前記のやり方に拘るわけではありませんので、何かもっと良い方法があればそれでも大丈夫です。出来ればマクロを使うのではなく、関数で処理したいと思っています。よろしくお願いいたします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

1）A1セルを選択します
2）Ctrlキー　と　Shiftキーを押しながら：キーを押します。（これで表全体が選択されるはず）
3)ホームタブ→編集→検索と選択→条件を選択してジャンプ→空白セル→OK
4）そのまま（B1セルがアクティブになっているはず）=A1と入力して、Ctrlキーを押しながらEnterキー
押下で入力確定

これで行けると思いますが、出来ますかね？

（まっつわん） 2018/05/15(火) 23:07

まっつわん　様

ご回答を頂き、大変にありがとうございました。

質問文のデータでご教示頂いた方法を試してみたところ完璧でした。「4）そのまま（B1セルがアクティブになっているはず）」のところは、アクティブになったのはＡ２でしたが、Ａ２に「=A1」を入れてCtrlキーを押しながらEnterキー押下で入力確定したところ、期待どおりの結果になりました。

ただ、大変申し訳ないのですが、最初の質問文では説明の便宜上実際のデータを簡略化して書いたため、実際のデータで試した場合には、残念ながら期待していた結果は得られませんでした。

実際のデータでやってみた結果は、同じことをやっているにもかかわらず、何回か試しているうちに途中から異なる動きになりました。初めの数回は、4）の段階でB1セルがアクティブにならずに１行目の最初の空欄セル（Ｎ１）がアクティブになりましたが（Ｎ列は質問文のデータでは省力した列の１つです）、どういうわけか、その後は質問文のデータのＢ３に該当するセルがアクティブになるようになりました（同じ作業をしているのに、何故異なった動きになるのでしょうね？）。Ｎ１がアクティブになった時にＮ１に「=A1」を入れてCtrl＋Enterで確定した時には、空欄セルの全部に「#VALUE」のエラー・メッセージが出ました。Ｂ３がアクティブになった時にＢ３に「=B1」と入れてCtrl＋Enterで確定した時には、質問文のデータのＡ２Ａ３に該当するセルに「山田商店」、Ａ６に該当するセルに「鈴木興業」、Ｂ３に該当するセルに「５月15日」、Ｂ６に該当するセルに「５月８日」と入ったところまでは良かったのですが、質問文のデータで言えば６行目以下に該当するデータを入れたいのではないセルにも６行目と同じデータがずーっと続いてしまいました。恐らく、質問文のデータでは省略した別の列に1000行ほど関数が入っている列があるため、その関数が入っている行の全部を範囲として選択したのだと思います。

せっかくご回答を頂いたのに、大変申し訳ありませんが、ご教示頂いた処理に要するステップ数と更に質問文のデータで言う６行目以下に当たる行に入ったデータを削除する手間を考えると、これまでやっていた方法でかかる手間とあまり変わらないような気がします。

Ａ列やＢ列に何か関数を入れておくのであれば、Ｄ列以降にも何列か列が続いていてもそれが影響してくることはないのではないかと思いますし、特に処理の手数をかけなくてもSheet1にデータを入力しただけで自動的にSheet2の方の処理が終わってしまうので、手間的にはこが一番楽です。何か良い方法はありませんでしょうか。引き続き、皆様のお知恵をお貸し頂けませんでしょうか。よろしくお願い致します。

（イカの木の芽和え） 2018/05/16(水) 08:48

 例示の表でしか考えてません。

 A1 =IF(Sheet1!A1="","",Sheet1!A1)

 ↑ D1までコピーし、C1とD1を下へコピー

 A2 =IF($C2="","",IF(Sheet1!A2="",A1,Sheet1!A2))

 ↑ B2へコピーし、A2とB2を下へコピー

 こういうこと？
（笑） 2018/05/16(水) 11:25

Private Sub Worksheet_Activate()
'Sheet2のシートモジュール

    Dim c As Range
    Cells.Clear
    For Each c In Sheets("Sheet1").UsedRange
        Cells(c.Row, c.Column).Value = IIf(Trim(c.Value) <> "", c.Value, c.End(xlUp).Value)
    Next c
End Sub
（mm） 2018/05/16(水) 14:04

笑　様

ご回答を頂き、有り難うございます。

正に望んでいたとおりの結果が得られました。感謝致します。ありがとうございました。

（イカの木の芽和え） 2018/05/16(水) 15:07

Mm　様

ご回答を頂き、有り難うございます。

マクロは今の私には少し荷が重いので（「マクロの記録」の機能くらいしか使えません）、教えて頂いた方法は、ゆっくり時間をかけて試してみたいと思います。ありがとうございました。

（イカの木の芽和え） 2018/05/16(水) 15:08

コメント返信：

[ 一覧(最新更新順) ]

[[20180515224030]] 『あるセルが空欄の場合に、特定のセルを参照したい』（イカの木の芽和え） ページの最後に飛ぶ

[[20180515224030]]　『あるセルが空欄の場合に、特定のセルを参照したい』（イカの木の芽和え）　ページの最後に飛ぶ