多个宏：副本表 - ＆gt;编辑复制的工作表 - ＆gt;保存复制的sheed - ＆gt;删除复制的表格

Question

我不是VBA职业选手，所以我对一个可以采取严厉步骤的宏进行了抨击：

1. 复制同一文件（“数据库”）中的“工作表1”并将其命名为“XL”
2. 在新的Sheet（“XL”）复制范围A1-A5和E3-E5中，只粘贴相同单元格中的值（单元格中有一些公式我不想在新的“XL”中使用“表格了”
3. 将新工作表（“XL”）保存到桌面（新文件的名称：“工作簿A”），并从初始工作簿（“数据库”）中删除“XL”工作表。但是让两个文件保持打开状态
好吧，就是这样:-)。如果有人能帮助我，我会非常高兴！

Answer 1

如果将工作表复制到任何目的地，则会创建一个新工作簿，其中一个工作表是原始工作表的副本。

Option Explicit

Sub newXLws()
    Dim wb As Workbook

    Set wb = ActiveWorkbook
    wb.Worksheets("Sheet 1").Copy

    With ActiveWorkbook
        With .Worksheets(1)
            .Name = "XL"
            .Range("A1:A5") = wb.Worksheets("Sheet 1").Range("A1:A5").Value
            .Range("E3:E5") = wb.Worksheets("Sheet 1").Range("E3:E5").Value
        End With
        .SaveAs Filename:=Environ("USERPROFILE") & "\desktop\Workbook A", FileFormat:=xlOpenXMLWorkbook
    End With
End Sub