Sao Chép Và Dán Giá Trị Toàn Bộ Sheet Trong Excel Bằng VBA

Sao Chép Và Dán Giá Trị Toàn Bộ Sheet Trong Excel Bằng VBA

Nếu bạn có một file excel rất nhiều sheet, và trong các sheets đó có rất nhiều công thức…khi gửi file đi thì chúng ta muốn sao chép và dán lại toàn bộ thành giá trị, để gửi file đi cho nhẹ hay vì mục đích khác như không cho người khác biết công thức như thế nào 🙂

Các bạn có thể sao chép toàn bộ và dán giá trị ở từng sheet, nhưng nếu nhiều file và quá nhiều sheet thì làm thủ công như vậy rất mất thời gian, do vậy mình sẽ đưa ra giải pháp là dùng vba để làm điều đó.

Đây là file mẫu và có nhiều sheet, trong mỗi sheet đều có chứa công thức, bây giờ chúng ta sẽ copy sheet và dán value chính nó luôn

Bây giờ bạn chọn thẻ Developer -> Visual Basic (hoặc nhấn phím tắt Alt + F11)

Tạo một module mới bằng cách vào Insert – Module

Sao chép và dán đoạn code sau vào khung soạn thảo, sau đó nhấn phím F5 hoặc icon tam giác màu xanh để chạy đoạn code

Sub CopyPastValue()

    Dim Ws As Worksheet

    For Each Ws In ThisWorkbook.Worksheets

        Ws.UsedRange.Value = Ws.UsedRange.Value

    Next

    MsgBox “Hoan Thanh”, vbCritical, “Thong Bao”

End Sub

Như vậy là xong rồi, các bạn có thể vào sheet bất kỳ để kiểm tra xem các công thức đã được thay thế bằng giá trị chưa nhé

Vài dòng lệnh rất đơn giản trên thì bạn đã sao chép và dán giá trị toàn bộ sheet trong excel rồi đấy. Hy vọng bài viết sẽ hữu ích trogn công việc của bạn.

TTV chúc bạn thành công!