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

-----------------------------------------------------------------------------------------
Private Sub 年月シートの年月と抜出シートの日から年月日を作って合成シートに記入する()
    Sheets("合成").Select                       '合成シートを
        Cells.Clear                             'すべてクリアする
    Sheets("抜出").Select                       '抜出シートを
        Range("A1:AG27").Copy                   'コピーして
    Sheets("合成").Select                       '合成シートに
        Range("A1").PasteSpecial Paste:=xlAll   'すべて貼り付ける
        Range("C2:AG27").ClearContents          'C2〜AG27セルの数式と値をクリアする
年と月をつないだ文字列を作る式を合成シートのセルに埋め込む
        Range("C2").FormulaR1C1 = _
        "=IF(抜出!RC="""","""",RC1 & RIGHT(""00"" & 抜出!RC,2))" 'C2セルに式を記入
        Range("C2").Copy                        'C2セルをコピーして
        Range("D2:AG2").PasteSpecial Paste:=xlFormulas 'D2〜AG2セルに式を貼り付ける
        Range("C2:AG3").Copy                    'C2〜AG3セルをコピーして
        Range("C4:AG27").PasteSpecial Paste:=xlFormulas 'C4〜AG27セルに式を貼り付ける
End Sub
-----------------------------------------------------------------------------------------