セルが4行毎に結合したもののコピーのROWS対応
いつもお世話になります。
WIN7 EXCELL2010 です。
参照図で説明させていただくと、
今現在、A105 の行まで作成しています。
この場合追加をする時、例えば 行NO 「102～105」選択して 「A106」 に貼り付けます。
コピー元の関数は
A102 = =IF($B102="","",ROWS($C$6:$C30))
B102 = =IF(ROWS($C$6:$C30)>COUNTIF(記入!$F:$F,"*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★*?"),"",LEFT(VLOOKUP("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&ROWS($C$6:$C30),記入!$F:$F,1,FALSE),FIND(IF(COUNTIF(記入!$F:$F,INDEX(記入!$D:$D,MATCH("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&ROWS($C$6:$C30),記入!$F:$F,0))&" #2*"),"◆"," #"),VLOOKUP("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&ROWS($C$6:$C30),記入!$F:$F,1,FALSE))-1))
A106 = =IF($B106="","",ROWS($C$6:$C34))
B106 = ==IF(ROWS($C$6:$C34)>COUNTIF(記入!$F:$F,"*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★*?"),"",LEFT(VLOOKUP("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&ROWS($C$6:$C34),記入!$F:$F,1,FALSE),FIND(IF(COUNTIF(記入!$F:$F,INDEX(記入!$D:$D,MATCH("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&ROWS($C$6:$C34),記入!$F:$F,0))&" #2*"),"◆"," #"),VLOOKUP("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&ROWS($C$6:$C34),記入!$F:$F,1,FALSE))-1))
当然のことですが貼り付けた後は
ROWS($C$6:$C30 の部分が ROWS($C$6:$C34 と4行分増えます
ご指導いただきたいのは
$C$6:$C30 の部分が コピー ペースト 4行増えても $C$6:$C31 と
追加する毎に「$30プラス 1」 のみ増やすことがVBA や 関数で可能でしょうか。
一つのみのコピー ペーストならいいのですが「シートは 1月～12月それぞれの範囲はA6:AH105」とあって増やすときにいちいち手動での修正は大変なのでご指導を仰ぎました。
お礼
早速ご回答いただきましてまことに有難う御座います。 書式 セル 表示形式 分類 ユーザー定義(mm/dd) ご指摘のようにになっていました。 これを 標準 に変えたら求める値が正常に表示されるようになりました。