优化代码：Sub Macro1 RangeA1Select SelectionCopy Windows2xlsmActivate RangeA1Select ActiveSheetPaste Windows1xlsmActivate RangeB1Select SelectionCopy Windows2xlsmActivate Rang

Sub Macro1() Dim i As Integer Dim j As Integer Dim sourceWS As Worksheet Dim targetWS As Worksheet

Set sourceWS = Workbooks("1.xlsm").Worksheets("Sheet1")
Set targetWS = Workbooks("2.xlsm").Worksheets("Sheet1")

For i = 1 To 3
    For j = 1 To 7
        sourceWS.Cells(1, j).Copy
        targetWS.Cells(i + 1, j).PasteSpecial xlPasteValues
    Next j
    targetWS.Parent.Save
    sourceWS.Rows(1).Delete Shift:=xlShiftUp
Next i

Application.RecentFiles.Add Name:="E:\检测设备\vba测试\测试\2.xlsm"
Application.CutCopyMode = False

End Su