如何基于一个单元格的所有可能值保存多个电子表格？

Question

具体而言，用户应在sheet1的A1单元格中输入1到99之间的一个值。然后，sheet2被重新计算。

我如何事前生成可能出现的所有不同工作表2的集合（带有值，不希望公式显示出来？）？

Answer 1

如果将（例如）99放在Sheet1“ A1”中，那么Sheet2将按照以下步骤在VBA Sheet1对象中保存为Book2_99.xlsx在桌面上（适当地更改路径）

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("A1"), Target) Is Nothing Then
    Sheets("Sheet2").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\naresh\Desktop\Sheet2_" & Target.Value & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End If

End Sub