ここから本文です

下記内容を実行するマクロが知りたいです。 ①全シートの全範囲の数値を値にする...

pur********さん

2019/3/1123:44:40

下記内容を実行するマクロが知りたいです。

①全シートの全範囲の数値を値にする
②特定のシートを削除する
③全シートのA1セルに「2019」と入力する
④全シートをシート名でブックとして別々

に保存

シートは15個くらいあります。そのうち②で削除扱いになるのは5個です。この一連の操作をマクロで実行することは可能でしょうか?

閲覧数:
21
回答数:
1

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2019/3/1200:49:58

4つしかない説明にあいまいな部分が多いです。
適当に解釈してます。
Sheet1,Sheet2,Sheet3,Sheet4が削除扱い。

Sub sample()
Dim i As Long, ii, xAry, APP
Set APP = Application
xAry = Split("Sheet1,Sheet2,Sheet3,Sheet4", ",")
APP.ScreenUpdating = False
With Worksheets
For i = .Count To 1 Step -1
With .Item(i)
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Value = 2019
.Copy
ActiveWorkbook.SaveAs .Name, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
ii = APP.Match(.Name, xAry, 0)
If Not IsError(ii) Then
APP.DisplayAlerts = False
.Delete
APP.DisplayAlerts = True
End If
End With
Next i
End With
APP.ScreenUpdating = True
End Sub

この回答は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる