Copy và dán đè dữ liệu trong vùng

[Excel my love_1]

Em có 1 vùng dữ liệu có 3 cột tiêu đề lặp theo từng ngày trong 1 tháng
Cột (Định mức) : dữ liệu dạng giá trị
Cột (Thực tế) : dữ liệu dạng giá trị
Cột (chênh lệch) : dữ liệu dạng công thức = cột thực tế- cột định mức
Tại chính vùng dữ liệu đó , em muốn chạy code để dán đè dữ liệu các cột thực tế sang cột định mức, cột chênh lệch vẫn giữ công thức
Mong mọi người giúp đỡ
Chi tiết xem file gửi kèm ạ

 

[BuiQuangThuan]

Em có 1 vùng dữ liệu có 3 cột tiêu đề lặp theo từng ngày trong 1 tháng
Cột (Định mức) : dữ liệu dạng giá trị
Cột (Thực tế) : dữ liệu dạng giá trị
Cột (chênh lệch) : dữ liệu dạng công thức = cột thực tế- cột định mức
Tại chính vùng dữ liệu đó , em muốn chạy code để dán đè dữ liệu các cột thực tế sang cột định mức, cột chênh lệch vẫn giữ công thức
Mong mọi người giúp đỡ
Chi tiết xem file gửi kèm ạ

Sub abc()
With Sheet1
    Dim i&, j&
    For i = 1 To 3
        For j = 1 To 93 Step 3
            .Cells(i + 2, j + 1) = .Cells(i + 2, j + 2)
        Next
    Next
End With
End Sub

Chẳng biết đúng ý không.

 

[Excel my love_1]

Sub abc()
With Sheet1
    Dim i&, j&
    For i = 1 To 3
        For j = 1 To 93 Step 3
            .Cells(i + 2, j + 1) = .Cells(i + 2, j + 2)
        Next
    Next
End With
End Sub

Chẳng biết đúng ý không.

Kết quả tuyệt vời
Cảm ơn anh