セルが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」とあって増やすときにいちいち手動での修正は大変なのでご指導を仰ぎました。

回答No.2

ki-aaa · ベストアンサー

#1の回答者です。

間違いがありましたので、修正します。

案1

A102 = =ROWS($C$6:$C30)
B102 = =IF(A102>COUNTIF(記入!$F:$F,"*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★*?"),"",LEFT(VLOOKUP("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&A102,記入!$F:$F,1,FALSE),FIND(IF(COUNTIF(記入!$F:$F,INDEX(記入!$D:$D,MATCH("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&A102,記入!$F:$F,0))&" #2*"),"◆"," #"),VLOOKUP("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&A102,記入!$F:$F,1,FALSE))-1))

A列は、手で修正。
A列の必要ない部分の非表示は、条件付書式で実現する。

案2

ROWS($C$6:$C30)　→　INT(ROW(A102)/4)
A102 = =IF($B102="","",INT(ROW(A102)/4))

お礼

早速ご回答いただきありがとうございました。
A6 B6 ～始まりますが

A6 勝手に少し変更させていただきました。
=INT(ROW($C6)/4)
B6 ご指導通りにいたしました。
=IF(A6>COUNTIF(記入!$F:$F,"*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★*?"),"",LEFT(VLOOKUP("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&A6,記入!$F:$F,1,FALSE),FIND(IF(COUNTIF(記入!$F:$F,INDEX(記入!$D:$D,MATCH("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&A6,記入!$F:$F,0))&" #2*"),"◆"," #"),VLOOKUP("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&A6,記入!$F:$F,1,FALSE))-1))

試した結果すごくうまくできました。
有難うございました。

回答No.1

ki-aaa

案1

A102 = =ROWS($C$6:$C30)
B102 = =IF(A102>COUNTIF(記入!$F:$F,"*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★*?"),"",LEFT(VLOOKUP("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&A102,記入!$F:$F,1,FALSE),FIND(IF(COUNTIF(記入!$F:$F,INDEX(記入!$D:$D,MATCH("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&A102,記入!$F:$F,0))&" #2*"),"◆"," #"),VLOOKUP("*?◆"&TEXT($D$4,"yyyy/mm")&"/*?◇★"&A102,記入!$F:$F,1,FALSE))-1))

A列の必要ない部分の非表示は、条件付書式で実現する。

案2

ROWS($C$6:$C30)　→　INT(ROW(A102)/4
A102 = =IF($B102="","",INT(ROW(A102)/4))