Macro Excel: thay thế toàn bộ bảng tính bằng các giá trị khác nhau [đã đóng]

Có thể thay thế toàn bộ bảng tính bằng các giá trị khác nhau chỉ bằng cách nhấp vào nút thông qua macro? Không có "thay thế X bằng Y" hoặc bất kỳ mẫu nào có thể nhận ra, tôi đang cố gắng thay thế TẤT CẢ các giá trị trong bảng tính.

Nói một cách đơn giản, tôi có hai biểu đồ có bố cục giống hệt nhau, nhưng giá trị hoàn toàn khác nhau trong mỗi biểu đồ. Tôi muốn người dùng có thể chuyển đổi giữa các biểu đồ khác nhau trong cùng một bảng tính và mỗi lần người dùng chuyển biểu đồ, biểu đồ sẽ tự động cập nhật vào biểu đồ đó.

Mã nhỏ bẩn nhanh này sẽ thay thế các giá trị trên trang tính hoạt động bằng các giá trị trong cùng một ô từ trang tính khác:

Sub xFory()
Dim ows As Worksheet
Dim tws As Worksheet
Dim rng As String

Set ows = Sheets("Sheet1") 'Change to your destination sheet
Set tws = Sheets("Sheet2") ' change to your data sheet

rng = "A1:G12" ' Change to your range address

ows.Range(rng).Value = tws.Range(rng).Value

End Sub

Chỉnh sửa: chỉnh sửa mã một chút.