[[20170523101230]] 『抜けている日(データ)に空白を挿入』(YH) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『抜けている日(データ)に空白を挿入』(YH)

マクロを使わないやり方でお願いしたいのですが、下記のようにA列に曜日、B列にその日のデータが曜日順で並んでいるのですが、抜けている日があるので、抜けている日を(1)か(2)のように空白を入れて表示する方法がありましたら、ご教示ください。

よろしくお願い致します。

 A	B	 (1)     (2)
 月	15	月	15	月	15
 火	23	火	23	火	23
 水	21	水	21	水	21
 木	18	木	18	木	18
 土	14	金			
 日	18	土	14	土	14
 月	25	日	18	日	18
 火	26	月	25	月	25
 金	20	火	26	火	26
 土	19	水			
 日	24	木			
 月	22	金	20	金	20
 火	29	土	19	土	19
 水	11	日	24	日	24
 木	13	月	22	月	22
 金	17	火	29	火	29
 日	28	水	11	水	11
  	  	木	13	木	13
  	  	金	17	金	17
  	  	土			
  	  	日	28	日	28

< 使用 Excel:Excel2007、使用 OS:Windows7 >


 ちょっと疑問なんですけど、

 1週間丸ごと抜けているってことは流石に無いですね?

 必ず存在する曜日(例えば月曜)なんてあるんですか?

(半平太) 2017/05/23(火) 12:46


ご返答ありがとうございます。

1週間丸ごと抜けていることはありません。

必ず存在する曜日というのはありません。

(YH) 2017/05/23(火) 14:52


 回答ではないのですが、「1週間」という括りは月〜日(あるいは日〜土)ではなく
 月曜から翌週火曜になる、水曜から翌週木曜になるようなことはありますか?
(稲葉) 2017/05/23(火) 15:39

 C列を作業列に使います

 (1) C1セル =A1&"001"
 (2) C2セル =IF(A2="","",A2&TEXT(RIGHT(C1,3)+(FIND(A1,"月火水木金土日")>=FIND(A2,"月火水木金土日")),"000"))
   C2を下にコピー

 (3) D1セル =TEXT(ROW(A2),"AAA")
 (4) E1セル =IFERROR(INDEX(B:B,MATCH(D1&TEXT(COUNTIF(D$1:D1,D1),"000"),C:C,0)),"")
   D1:E1を下にコピー

 <結果図>
  行  _A_  _B_  __C__  _D_  _E_
   1  月    15  月001  月    15
   2  火    23  火001  火    23
   3  水    21  水001  水    21
   4  木    18  木001  木    18
   5  土    14  土001  金      
   6  日    18  日001  土    14
   7  月    25  月002  日    18
   8  火    26  火002  月    25
   9  金    20  金002  火    26
  10  土    19  土002  水      
  11  日    24  日002  木      
  12  月    22  月003  金    20

(半平太) 2017/05/23(火) 15:55


半平太様、稲葉様、ご返答ありがとうございます。

半平太様にご教示頂いた方法で出来ました。

(YH) 2017/05/23(火) 16:27


 もう解決済みなのですが、ちと思いついたので投稿。
 検証してないので、不具合あるかも。
     |[A]|[B]|[C]                                     |[D]                                                               
 [1] |月 | 15|=A1                                     |=B1                                                               
 [2] |火 | 23|=TEXT(FIND(C1,"日月火水木金土")+1,"aaa")|=IF(INDEX(A:A,COUNT($D$1:D1)+1)=C2,INDEX(B:B,COUNT($D$1:D1)+1),"")
 [3] |水 | 21|水                                      |                                                                21
 [4] |木 | 18|木                                      |                                                                18
 [5] |土 | 14|金                                      |                                                                  
 [6] |日 | 18|土                                      |                                                                14
 [7] |月 | 25|日                                      |                                                                18
 [8] |火 | 26|月                                      |                                                                25
 [9] |金 | 20|火                                      |                                                                26
 [10]|土 | 19|水                                      |                                                                  
 [11]|日 | 24|木                                      |                                                                  
 [12]|月 | 22|金                                      |                                                                20
 [13]|火 | 29|土                                      |                                                                19
 [14]|水 | 11|日                                      |                                                                24
 [15]|木 | 13|月                                      |                                                                22
 [16]|金 | 17|火                                      |                                                                29
 [17]|日 | 28|水                                      |                                                                11
 [18]|  |   |木                                      |                                                                13
 [19]|  |   |金                                      |                                                                17
 [20]|  |   |土                                      |                                                                  
 [21]|  |   |日                                      |                                                                28
(稲葉) 2017/05/24(水) 12:31

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.