質問: nothing end sub これですと、新しいbookが起動しシートすべての項目が張り付きます シートの一部を(b2からk100)を移したいと思っています ワンクリックとはフォームのコマンドボタンで移動できればと思っています よろしければお知恵をおかりしたくおもいます よろしくお願いします
回答: 質問者のレベルでは、少々コードが長くなっても ブック、シートなど全て指定した方が勉強になるでしょう。 マクロのあるブックのsheet1のセル範囲b2:k100を 追加したブックのsheet1のセルa1からコピーする場合 '-------------------------------------------- sub test() dim mybook as workbook set mybook = workbooks.add thisworkbook.sheets("sheet1").range("b2:k100").copy _ mybook.sheets("sheet1").range("a1") end sub '---------------------------------------------- 以上。