![](https://cdn.lihkg.com/assets/faces/dog/lihkg.gif)
另外由於我要留返少少formula所以改咗
ActiveSheet.Range("A1:Z6").Copy
ActiveSheet.Range("A1:Z6").PasteSpecial xlPasteValues
都好順利
唯獨是the following features cannot be saved呢個唔識搞 雖然我狂㩒”No”都可以save到
![](https://cdn.lihkg.com/assets/faces/dog/itdog5.gif)
![](https://na.cx/i/i6X9V5m.jpg)
Sub Copy_and_Save()
Application.DisplayAlerts = False
Dim i As Integer
Dim SaveTo_Folder As String
SaveTo_Folder = "C:\MyFile\" '改C:\MyFile\做你個output folder條path
If Right(SaveTo_Folder, 1) <> "\" Then SaveTo_Folder = SaveTo_Folder & "\"
For i = 1 To 100
Range("A1").Value = i '改A1做你個lookup cell位置
ActiveSheet.Calculate
ActiveSheet.Copy
ActiveSheet.Range("A1:Z6").Copy
ActiveSheet.Range("A1:Z6").PasteSpecial xlPasteValues
ActiveWorkbook.SaveAs SaveTo_Folder & Format(i, "000") & ".xlsx"
ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
End Sub