Xóa toàn bộ công thức chỉ để lại giá trị trong tất cả các Sheet

Giả sử bạn có một file Excel chứa rất nhiều công thức và chỉ muốn lấy lại dữ liệu để giảm bớt kích thước file hoặc để mở ra cho nhanh hay không muốn làm lộ công thức mà bạn đã mất công làm.

Để làm việc đó một cách nhanh chóng bạn dùng Macro nội dung bên dưới. Xin lưu ý macro này sẽ xóa toàn bộ công thức trong tất cả các Sheet

Sub FormulasToValues_EntireWorkbook()
WCount = Worksheets.Count
For i = 1 To WCount
If Worksheets(WCount - i + 1).Visible Then
Worksheets(WCount - i + 1).Select
RCount = ActiveCell.SpecialCells(xlLastCell).Row
CCount = ActiveCell.SpecialCells(xlLastCell).Column
For j = 1 To RCount
For k = 1 To CCount
Worksheets(WCount - i + 1).Cells(j, k) = Worksheets(WCount - i + 1).Cells(j, k).Value
Next k
Next j
End If
Next i
End Sub