こんなのが実現できるなら是非教えていただきたいのですが、
集計.xlsm というマクロブックがあるのですが、
行数が多いのと各シートに数式が設定されているせいでファイルサイズが大きくて、
配布に適していません。
配布した先では閲覧のみなので、マクロは要らないし数式も不要です。
そこで全シートのセルを値にして、集計(配布用).xlsx で別名保存すれば良いと思いました。
シート数やシート名が不明ですので、
具体的には、
すべてのシートを順番に、シート全選択(Alt+A以外にある?)して、
コピーして、値で上書きして、別名保存というロジックになるかと思うのですが、
複雑でないなら教えていただけないでしょうか?
よろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
値貼り付けを"除外"するシート名の頭に「★」を付けておく。
①シート名1文字目が「★」以外のシートを選択
②全セルコピー → 値貼り付け
③全セル選択解除、複数シート選択解除
④「.xlsx」で保存
こんな感じにしてみました。
Sub Macro1()
'シート1番目を選択(シート名1文字目が「★」から始まっていないと想定)
Sheets(1).Select
'シート名1文字目が「★」以外のシートを選択
For Each i In ThisWorkbook.Sheets
If Not i.Name Like "★*" Then
i.Select Replace:=False
End If
Next i
'全セル選択
Cells.Select
'コピー
Selection.Copy
'値貼り付け
Selection.PasteSpecial Paste:=xlPasteValues
'おまけ(複数シート、全セル選択状態で終わるのが気持ち悪いので解除)
Cells(1, 1).Select
Sheets(1).Select
'「.xlsx」で保存
Application.DisplayAlerts = Fals
ActiveWorkbook.SaveAs Filename:=Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1), _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
No.4
- 回答日時:
質問者さんの意図と反して、PDFで出力した物を配布すれば良いと思うのは自分だけでしょうか。
No.1
- 回答日時:
「開発」メニュー →「マクロの記録」
からざっくり作ってみました。
Sub Macro1()
'全シート選択
Worksheets.Select
'全セル選択
Cells.Select
'コピー
Selection.Copy
'値貼り付け
Selection.PasteSpecial Paste:=xlPasteValues
'おまけ(全シート、全セル選択状態で終わるのが気持ち悪いので解除)
Cells(1, 1).Select
ActiveSheet.Select
End Sub
ありがとうございます。
試してみたら一つ問題が発生しました。
ピボットテーブルのシートがあったのですが、そこまで値になってしまいました。
除外するシート名だけ分かるようにすれば回避できないでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
このQ&Aを見た人はこんなQ&Aも見ています
-


【VBA】全シートの計算式を全て値に変換したい
Visual Basic(VBA)
-


EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-


エクセルで複数のシートをまとめて一度にコピーし、一度に値を貼り付けることができますか
その他(パソコン・スマホ・電化製品)
-
-
4

エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5

エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
6

エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
7

VBAで文字列を数値に変換したい
Excel(エクセル)
-
8

エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
9

Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい
Excel(エクセル)
-
10

別ファイルを開かず、INDIRECT関数を使用せずに、別ファイルのデータを求めたい
Excel(エクセル)
-
11

エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
-
12

名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
13

VBAで指定シート以外の選択
Visual Basic(VBA)
-
14

特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
15

VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
16

Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
17

数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
18

VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
19

フォルダ内ブックの数式を全て値に変換するマクロ?
Excel(エクセル)
-
20

VBA 数値を文字列として貼付したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのマクロで該当処理できな...
-
ExcelのVBAのマクロで他のシー...
-
エクセルで特定のシートのみ自...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
ワークシートを追加したときの...
-
ユーザーフォームに入力したデ...
-
ブック名、シート名を他のモジ...
-
集計シートA列のコードと一致す...
-
実行時エラー1004「Select メソ...
-
VBAで、シート間の転記するコー...
-
エクセルVBA Ifでシート名が合...
-
【VBA】色のついたシート名を取得
-
VBA 検索して一致したセル...
-
シート削除のマクロで「delete...
-
API関数ImmSetConversionStatus...
-
ExcelVBA:複数の特定のグラフ...
-
コード名シートA列と集計シート...
-
エクセルのシート名変更で重複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
ユーザーフォームに入力したデ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
エクセルVBA Ifでシート名が合...
-
実行時エラー1004「Select メソ...
-
エクセルのシート名変更で重複...
-
【ExcelVBA】全シートのセルの...
-
VBA 存在しないシートを選...
-
ブック名、シート名を他のモジ...
-
Excel チェックボックスにチェ...
-
VBA 検索して一致したセル...
-
エクセルで通し番号を入れてチ...
-
シートが保護されている状態で...
-
【VBA】特定の文字で改行(次の...
-
ExcelのVBAのマクロで他のシー...
-
Worksheet_Changeの内容を標準...
-
EXCELVBAを使ってシートを一定...
おすすめ情報















