ID非公開

2022/1/27 18:44

22回答

Excelマクロで質問です。 下記コードでコピーしてxlsxにしたブックですが、全てのシートの式を抜いて値だけにして保存したいです。 元のブックは抜きたくないです。

Excelマクロで質問です。 下記コードでコピーしてxlsxにしたブックですが、全てのシートの式を抜いて値だけにして保存したいです。 元のブックは抜きたくないです。 グループ化した時の式の抜き方を教えてください。 Sub 保存() Application.DisplayAlerts = False Dim flg1 As Boolean Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet Dim mypath As String Set ws2 = ThisWorkbook.Worksheets("新") mypath = "\\保存先\" flg1 = True For Each ws1 In ThisWorkbook.Worksheets If ws1.Name Like "次月*" Then ws1.Select Replace:=flg1 flg1 = False End If Next ws1 ActiveWindow.SelectedSheets.Copy ActiveWorkbook.SaveAs Filename:=mypath & Format(ws2.Range("C1"), "yymmdd") & "マスタ" & ".xlsx", FileFormat:=xlOpenXMLWorkbook ThisWorkbook.Close Application.DisplayAlerts = True End Sub よろしくお願いいたします。

Visual Basic | Excel・45閲覧

ベストアンサー

0
hmm********

2022/1/27 19:09

For Each ws In Worksheets ws.UsedRange.Value=ws.UsedRange.Value Next

ThanksImg質問者からのお礼コメント

出来ました！ 他の方もありがとうございました！！

お礼日時：1/29 18:43

その他の回答（1件）

0
porihiko3

カテゴリマスター

2022/1/28 19:53

こんにちは。 ActiveWindow.SelectedSheets.Copy 'ここで、選択のシートは、ブックにコピーできてます。 for each sh in activeworkbook.sheets sh.select Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'ここまでで、シートの値貼り付け、、出来ているか、確認してください ActiveWorkbook.SaveAs Filename:=mypath