[[20180420122943]]　『空白じゃないところまで上にさかのぼって値』（伝票大臣）　ページの最後に飛ぶ

『空白じゃないところまで上にさかのぼって値』（伝票大臣）

A列にアイテム名とB列に数量がはいっております。
C列に下記のようにもれなくアイテム名を入れたいのです。
よろしくお願いします。

      A       B       C       D 
1   みかん           
2           　2　　　みかん   2
3             3　　　みかん   3              
3   りんご
4　　　　　　 1　　　りんご   1
5             5　　　りんご   5      
6             3　　　りんご   3
7             5　　　りんご   5

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

＞C列に下記のようにもれなくアイテム名を入れたい
C1とC4は空白になってますがいいんですか？

もし、上記がそのとおりということであれば使えない方法ですが、、、
そうでなければ、こちらが参考になるとおもいます。
http://www.moug.net/faq/viewtopic.php?t=76534

（もこな２） 2018/04/20(金) 12:52

 どこかで同じような質問だあったような...

 Sub test()
     Dim r As Range
     For Each r In Columns(1).SpecialCells(2, 1).Areas
         r.Offset(, 1).Value = r(0).Value
         r.Offset(, 2).Value = r.Value
     Next
 End Sub
（ seiya） 2018/04/20(金) 12:53

＞もし、上記がそのとおりということであれば使えない方法ですが、、、
よく考えたらD1、D4が空欄ですから、提案の方法で処理したあと、オートフィルタかけて、D列が空白のものを抽出して、C列の要らないところ消すだけですね。

失礼しました。
（もこな２） 2018/04/20(金) 12:59

もこな２様、ありがとうございます。空白はおっしゃるとおり詰めるつもりです。

 seiya様、マクロの使用は想定していません。ただパッとマクロを提案できるのは尊敬します。
（伝票大臣） 2018/04/20(金) 13:03

 > seiya様、マクロの使用は想定していません。
 列参照の修正をしようと思ったけど不要だね。
（ seiya） 2018/04/20(金) 13:07

＞空白はおっしゃるとおり詰めるつもりです。
あ、詰めるんですね。
で、元の値も生かしつつ、
同じシートで表の隣に新たな表を作るんですか？
１列の空白も置かずに。

空白を詰めるのに、行削除を使いたいから、
別シートで一回作業するのもありでしょうか？

（まっつわん） 2018/04/20(金) 13:13

まっつわん様、ありがとうございます。空白を詰めるのは最後の最後なので、空白はあっても構わないです、純粋にA列B列の同じ並び行のC列にアイテム名がでれば助かります。別シートでも構いません。
（伝票大臣） 2018/04/20(金) 13:26

 C1セルに
 =IF(B1="","",INDEX(A:A,MATCH(1,INDEX(0/(A$1:A1<>""),0),1)))
 と入力して下へフィルコピーではどうか。
（ねむねむ） 2018/04/20(金) 13:38

ねむねむ様、ありがとうございます。解決です。自動送信されてくるメール本文から集計することができないものか悩んでいたところです。助かりました。
また、もこな２様、seiya様、まっつわん様も貴重な時間を割いていただきありがとうございました。
（伝票大臣） 2018/04/20(金) 13:45

コメント返信：

[ 一覧(最新更新順) ]

[[20180420122943]] 『空白じゃないところまで上にさかのぼって値』（伝票大臣） ページの最後に飛ぶ

[[20180420122943]]　『空白じゃないところまで上にさかのぼって値』（伝票大臣）　ページの最後に飛ぶ