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

Question

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

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

Answer 1

如果在工作表Sheet1“ A1”中放入（说）99，则工作表Sheet2将按照以下步骤在VBA工作表Sheet1对象中另存为Sheet2_99.xlsx（适当地更改路径）

Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts = True
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

    With ActiveSheet.UsedRange
    .Value = .Value
    End With

ActiveWorkbook.Close True
End If

End Sub