質問: 2 To Sheets.Count - 1 Sheets(i).Range("P18").Copy Sheets("集計").Cells(i, 2).PasteSpecial Paste:=xlPasteValues, Next End Sub ``` どなたか解決策をご存知の方がいらっしゃいましたら、知恵を貸していただけますと幸いです。 よろしくお願いいたします。
回答: こんなんでよいのでは。 ``` Sheets("集計").Cells(i, 2).Value = Sheets(i).Range("P18").Value ```