• ベストアンサー

Excelマクロで、多数のシートの値だけを元のファイルに上書きするようなマクロを教えていただきたいのですが。

あまり詳しくないのですが、Excelマクロで、１つのファイルにある４０くらいのシートの計算式等をすべて排除した値＆図だけを元のファイルに上書きするようなマクロを教えていただきたいのですが。 マクロを使わないでの方法は、 (1)、シート選択 (2)、CTRL＋Ａ（すべて選択） (3)、CTRL＋Ｃ（コピー） (4)、形式を選択して貼り付け (5)、値（選択値） これをそのファイルが持っているシート分の繰り返しです。 宜しくお願いします。 　

質問者が選んだベストアンサー

  • ベストアンサー
  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.1

Sub TEST01() Dim sh As Worksheet For Each sh In Worksheets sh.Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Next MsgBox "おわりました。" End Sub これでどうでしょう？

o8jijii
質問者

お礼

迅速な対応とても感謝です。 完璧です。ありがとうございました（*^_^*）

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 値を残してエクセルから必要なシートだけコピーするには

    何ページものシートにわたって複雑な計算を行うエクセルがあります。 このままでは容量も多いので最終の結果ページ１枚だけをコピーしてメール送信したいのですが、やり方がよくわかりません。 ページ設定やセル巾、書式設定などはそのまま残し、計算式はなしで値のみを残したいのです。 コピー後、「形式を選択して貼り付け」で「値」選択するとといいと他の質問の回答にありましたが、、「形式を選択して貼り付け」をやっても「値」というような選択肢は、出て来ず、「エクセルシート」「図」「オブジェクト」「グラフ」などの項目があるだけです。貼り付けはできるものの容量は、元の大きなままです。 どうすればいいのでしょうか？ ブックごとコピーして不要なシートを削除する方法ですと、値が残らず「＃ＲＥＦ」という表示になってしまいます。

  • シートコピーと値の転記　シート名変更マクロを

    エクセル2010で　マクロのご教授をお願いいたします。 BOOK1の　Sheet1 A1～A10に　数値1000が入力されているとして Sheet1のシートのコピーを作成 Sheet1にもどり　A1～A3の値だけコピーして　作業列C1に　値を貼り付け A1～A10 をクリアーにしたのちに　 ※↓が　うまくいきません。 A1の値→　A8 A2の値→　A9 A3の値→　A10　に入力　させるマクロは　どうなるでしょうか？ マクロの記録で　いろいろと　やってみましたが　どうも　※の部分が　うまくいきません どう考えてもエクセルに対しての　理解不足だと思われますが、ご教授のほどお願いします。 おこなった自動マクロの記録は↓です。 マクロの記録開始する 名前　シートコピー Sheet1を右クリックして移動またコピー コピーを作成にチェックをいれ　OK コピーシートが作成される。 Sheet1をクリックしなおして　A1からA3をコピー　 作業列として　C1に　形式を選択して貼り付け　値 A1～A10を　delete　でクリア C1～C3を選択　コピー A8に　形式を選択して貼り付け　値 マクロの記録終了。 あと　Sheet1をコピーするさいに　シート名を前日の日付に自動的に変更できればと いいなと　考えておりますが　できるのでしょうか？ 例えば、本日でいえば　シート名→　0112　のような　シート名を変更できればすてきだと おもいます。 どうぞ　よろしくお願いします。

  • Excelの設定で（マクロかな？）

    別のファイルからセルをコピーして、あるファイルに「貼り付け」を行っています。 方法は「形式を選択して貼り付け」で「値」のみを「行列を入れ替える」で貼り付けています。 手間なので作業を簡単にしたいのですが可能でしょうか。 （ユーザー設定でコマンドをボタン（アイコン）として取り出す場合は「形式を選択して貼り付け」までしかできなかったです。） 他に方法はありますでしょうか？ マクロが必要なのでしょうか？ よろしくお願い致します。

  • エクセルを閉じる時にマクロを実行する

    お世話になります。 エクセルのファイルを閉じる時にあるマクロを実行したいと思っています。 右上の×印をクリック、Alt+F4、Alt+F→X　などエクセルを閉じようとしたときに自動的にマクロを動かすことが出来るでしょうか？ マクロ自体は、あるシート全体をコピー→外のシートに形式を選択して貼り付け（値）　というごく簡単なものです。 また参考までにエクセルファイルを開いたときにマクロを実行というものがあれば教えてください。 よろしくお願いします。

  • 値の貼り付けマクロが出来なくなりました。

    http://kokodane.com/macro17.htm 頻繁に、形式を選択して貼り付けで「値の貼り付け」を行うため、 上記のサイトを参考にしてマクロを作成しました。 コードは Sub 値の貼り付け() ' Keyboard Shortcut: Ctrl+t ' 　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ 　　　　SkipBlanks :=False, Transpose:=False End Sub です。 それが昨日のことなのですが、そのときはうまくマクロが動作して、 データを貼り付けることが出来ていたのですが、 今日やってみるとなぜかうまくいきません。 特に何か設定は変えていません。 セキュリティは下げた状態にしてあり、他のマクロは通常通り使えています。 コピーペーストは普通に行えています。 なぜなんでしょうか？ 何度かマクロを作成しなおしてみたりもしたのですが、 どうやってもうまくいきません。 どなたか理由を教えて下さい。

  • EXCELで値のコピーをキーボードのみで行いたい

    あるセルに数式が入っていて、そこに計算結果があったとします。そのセルをコピーして、値を別のセルに貼付けたいのですが、通常は形式を選択して「値のみ」にチェックを入れて貼り付けますが、通常のコピペのように「CTRL+C」→「CTRL+V」のように、キーボード操作のみで値のみの貼付けを行う方法はありませんか？もしくは、ツールメニューはないですか？書式コピーのツールメニューはあるのですが、値コピーは見つけられませんでした。よろしくお願いします。

  • エクセル 他のファイル（ブック）へシートをコピー

    エクセル（２００３）で他のファイル（ブック）にシートをコピーする場合，コピー元のシートに他のシートの値を参照するセルがあると，コピー後のシートに参照エラーが起きてしまいます． これを回避するため，コピー元のシートを全選択してコピーし，コピー先で「形式を選択して貼り付け→数値と数値の書式」をした後，再度コピー元のシート全選択コピーし，コピー先で「形式を選択して貼り付け→書式」とする，という方法で今は作業していますが，一発でできる方法はないでしょうか． もちろん，コピー先にコピー元の数式を反映させる必要はなく，値がコピーできればＯＫです，

  • 複数のエクセルファイルを１つのエクセルファイルのシートにコピーをマクロ

    複数のエクセルファイルを１つのエクセルファイルのシートにコピーをマクロで行いたい。 マイドキュメントのデーターというフォルダ内に エクセルファイルＡ（シート名みかん） エクセルファイルＢ（シート名りんご） エクセルファイルＣ（シート名バナナ） エクセルファイルＤ（シート名ぶどう） エクセルファイルＥ（シート名いちご） があります。 雛形は同じです。すべてＡ列～Ｆ列までデータが入っています。 行数はファイルによって違います。 また毎日自動で上書き更新され、毎日行数が変わります。 エクセルファイルＺがあります。シートが７個あります。 ・変換 ・集計 ・みかん ・りんご ・バナナ ・ぶどう ・いちご エクセルファイルＺを開きます。（各シートには昨日のデータが貼り付けてあります。） マイドキュメントのデーターフォルダも開いておきます。 エクセルファイルＺにおいて「マクロの記録」を起動。 エクセルファイルＺの 【みかん】～【いちご】までの５シートを全データＤＥＬＥＴＥします。 開いてあるフォルダ「データー」の中からエクセルファイルＡを開きます。 （タスクバーにいます） ファイルＡのシート【みかん】の全データ選択して エクセルファイルＺの【みかん】というシートのＡ１セルにカーソルを あわせて貼り付けします。 開いてあるフォルダ「データー」の中からエクセルファイルＢを開きます。 （タスクバーにいます） ファイルＢのシート【りんご】の全データ選択して エクセルファイルＺの【りんご】というシートのＡ１セルにカーソルを あわせて貼り付けします。 これと同じ操作を【バナナ】【ぶどう】【いちご】も行います。 エクセルファイルＺにおいて「マクロの記録」を終了させます。 マクロができあがりました。 ファイルＺを上書き保存して終了。再立ち上げで記録したマクロを実行。 エラーにはなりませんが、ファイルＺの５種類各シートに ファイルＡ～Ｅのデータが貼りつきません。 何か無理な事をしているのでしょうか？ もしかしてシート名が同じだと駄目？とためしにファイルＺのシート名【みかん】～【いちご】を 【みかんＺ】～【いちごＺ】に変更してマクロを再記録しても 駄目でした。 よろしくお願いします。

  • エクセルマクロ

    入力したワークシートを 新しいブックにコピーして保存するマクロを作成しました。 ただ下記の様に保管すると、 数式もそのまま元のエクセルファイルの数式を参照してしまいます。 下記のマクロをあまり変更しないで、 値貼付け（もしくは値貼付けしながら、新しいブックへコピー） するにはどの様に変更するといいでしょうか？ よろしくお願いします。 'Sub newfilesave() Sheets("Sheet1").Copy '名前を付け、ファイル形式も決めてデスクトップに日付を付けて保存する。。 'ActiveWorkbook.SaveAs _ ' Filename:="C:\Users\xxxxx\Desktop\" & Format(Now(), "yyyymmdd_hhmm"), _ ' FileFormat:=xlOpenXMLWorkbook 'End Sub

  • Excelで値のみの貼り付けをキーでしたい

    Excel2000を使用していますが，「形式を選択して貼り付け」＋「値」を，メニューや右クリックでなくキーで簡単にすることは可能でしょうか？ コピー後にCtrl+Vなら通常の貼り付けになりますが，他のキー操作で値のみの貼り付けになればいいのですが。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する