質問: False Then Exit Sub Sheets("LIST").Copy ActiveWorkbook.SaveAs Sname, FileFormat:=xlOpenXMLWorkbook End Sub ``` ### 補足情報(FW/ツールのバージョンなど) office 2016
回答: セルの値のみをコピーしたい場合は、Value プロパティを使用します。 例: ブックはあらかじめ開いておいてください。 ``` Workbooks("book1.xlsx").Sheets("Sheet1").Range("A1").Value = Workbooks("book2.xlsx").Sheets("Sheet1").Range("A1").Value ``` 今回の場合は、 * 最初から値のみをコピーする。 * セルをコピーしてから参照を値に変換する。 のどちらかになるかと思います。