­ã´£³¡ªL

Sub Âà¦s()
Dim xSht As Worksheet, xPH$, NN, SName$, i&
Set xSht = Sheets("¶g³øªí")
xPH = ThisWorkbook.Path & "\"
For i = 1 To 1 '1¦Ü²Ä?¶g, ¦Û¤v·d©w
    SName = "²Ä" & i & "¶g.xls"
    xSht.Copy
    With ActiveWorkbook
         With .Sheets(1).UsedRange: .Value = .Value: End With
         For Each NN In .Names '³Q±a¹L¨Óªº¤p«Ä--©w¸q¦WºÙ--§R°£
             If InStr(NN.Name, "Print_") = 0 Then NN.Delete '°£¤FPrint¬ÛÃöªº, ¾l§R°£
         Next
         .SaveAs Filename:=xPH & SName, CreateBackup:=False
         .Close 0
    End With
Next i
End Sub


=============================