数据保存，谢谢老师编写

15968725770

数据保存，谢谢老师编写

3190496160

Sub 按钮1_Click()
With Sheet1
    ar_1 = .Range("b5:e5")
    ar_2 = .Range("b8:c12")
    ar_3 = .Range("b15:c19")
    ar_4 = .Range("b22:c26")
End With
With Sheet2
    r = .Cells(Rows.Count, 5).End(xlUp).Row + 1
    .Cells(r, 1).Resize(UBound(ar_1), UBound(ar_1, 2)) = ar_1
    .Cells(r, 5).Resize(UBound(ar_2), UBound(ar_2, 2)) = ar_2
    .Cells(r, 7).Resize(UBound(ar_3), UBound(ar_3, 2)) = ar_3
    .Cells(r, 9).Resize(UBound(ar_4), UBound(ar_4, 2)) = ar_4
End With
MsgBox "ok!"
End Sub

3190496160

数据保存，谢谢老师编写.rar (18.45 KB, 下载次数: 7)

2023-5-3 22:13 上传

点击文件名下载附件

z865593849

Sub a()
y = Sheets(2).[e1].End(xlDown).Row
Sheets(1).Range("b5:e5").Copy Cells(y, 5).Offset(1, -4)
Sheets(1).Range("b8:c12").Copy Cells(y, 5).Offset(1, 0)
Sheets(1).Range("b15:c19").Copy Cells(y, 5).Offset(1, 2)
Sheets(1).Range("b22:c26").Copy Cells(y, 5).Offset(1, 4)

End Sub

三分醉，七分醒

试试这个