すぐマク  Home      この画面を閉じるには、×ボタンをクリック

-----------------------------------------------------------------------------------------
Private Sub 指定された範囲の年月のデータを休日表から抜出シートへ写す()
    Sheets("抜出").Select                       '抜出シートを
        Cells.Clear                             'すべてクリアする
        貼付行 = 2                              '貼り付けるための行カウンタに2をセットする
        For 行 = 2 To 34 Step 2                 '2行から34行まで2行間隔で
            年月 = Sheets("年月").Cells(行, 5).Value '年月シートから年月を取り出す
            If 年月 >= 開始YM And 年月 <= 終了YM Then '年月が開始年月と終了年月以内なら
                Sheets("休日表").Select         '休日表の
                    Range(Cells(行, 1), Cells(行 + 1, 33)).Copy '同じ行と次の行のA〜AG列をコピー
                Sheets("抜出").Select           '抜出シートの
                    Range(Cells(貼付行, 1), Cells(貼付行, 1)).PasteSpecial Paste:=xlAll '同行へすべて貼り付け
                    Cells(貼付行, 1) = Sheets("年月").Cells(行, 5).Value '同行のA列へ年月シートの年月を写す
                見出年月 = Left(年月, 4) & "年" & Right(年月, 2) & "月" '見出用の年月を作る
                Sheets("結果").Cells(貼付行 / 2 + 4, 1).Value = 見出年月 '結果シートのA列に見出年月を記入
                貼付行 = 貼付行 + 2             '貼付行カウンタに2を加える
            End If
        Next                                    '最終行まで繰り返す
    Sheets("休日表").Select
        Range("A1").Select
End Sub
-----------------------------------------------------------------------------------------