F-12C C12の解決方法

質問者が納得ここまでProgramが進むとなかなか状況の把握が難しいですが Set pstCell1 = Worksheets("sheet2").Range("D6:D36").Find(What:=tgtDate, LookAt:=xlWhole) のところのtgtDateが怪しいのではないでしょうか。この行にBreakPoint（F9）を設定して、cpyRnge15～19の場合にpstCell1にどんな値がセットされているか確認されると良いと思います。（ウオッチウインドウで...

質問者が納得４０名週２回当番表です。 Ｌ列にスタッフリスト４０名を作成します。 現在は３名だけ名前で、他は「Ｓ」+番号が入ってます。 この式では、メンバーを正しくセットすれば、重複などを気にする必要は有りません。 ［Ａ２］式 =IF(AND(ROW(A1)>11,MOD(MIN(COLUMN(A1),6),2)=0),"",INDEX($L$2:$L$41,MOD(ROW(A1)+(COLUMN(A1)-1)*11+INT(COLUMN(A1)/2)-1,40)+1)) この式をＡ２にコ...