フォルダ内の複数ファイルの特定シートを抽出したい（値と書式）

投稿者 : アツシ     投稿日時 : 2024/10/29(Tue) 21:31:26     OS : Windows 11     EXCEL : Excel 2019

---

エクセルVBAの質問です。
同一フォルダ内の各ファイルに「集計1」というシートがあるのですが、１つのファイルに縦に並べて抽出させようとしています。
取り出すことは出来ているのですがコピー元が計算式で作られており、抽出後にもコピー元を参照しています。
こちらを「値と書式」で抽出することは可能でしょうか？行き詰りました。
※（ActiveSheet.Paste）の箇所をいろいろ変えたりしましたが、デバックになります

Sub フォルダ内ファイルの集計1をまとめる()
myPath = ThisWorkbook.Path & "\"
fname = Dir(myPath & "*.xls") 'フォルダ内のExcelファイルを検索します

Do Until fname = Empty '全て検索し終えると、fname = Empty となるので、その間以下を実行します
If fname <> ThisWorkbook.Name Then
Workbooks.Open myPath & fname '選択したファイルを開きます
Set AB = ActiveWorkbook
lr = ThisWorkbook.Sheets("集計1").Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
On Error Resume Next
AB.Sheets("集計1").UsedRange.Copy
On Error GoTo 0
ThisWorkbook.Activate
Sheets("集計1").Range("A" & lr + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
AB.Close
End If
fname = Dir '選択したフォルダ内の次のExcelファイルを検索します
Loop
End Sub

投稿者 : 気分     投稿日時 : 2024/10/29(Tue) 22:22:21

---

コピー後になるかわからんけど、数式の入ったセルをコピー
同じところに値だけはりつけ

投稿者 : アツシ     投稿日時 : 2024/10/29(Tue) 22:29:39

---

気分　様。
ありがとうございます。
「コピー後に値で貼り付け」の線で試行錯誤してみます。

投稿者 : 気分     投稿日時 : 2024/10/29(Tue) 23:39:21

---

ああ、注意点として
=""
都かはコピー後、値貼り付けは完全な空白にはなりません
見た目空白ですが実際には長さ0の文字が張り付きます
=istext(a1)
とかやればわかるかと