Chuyển toàn bộ nội dung của File excel (tất cả các sheet): công thức, link => value

[sony2007]

Bác nào có thể viết giúp cho e 1 cái macro:
Chuyển hết toàn bộ nội dung của file excel sang dạng chỉ có text, number. Tức là k còn công thức, các link nữa, mà chỉ còn text, number...Các định dạng format vẫn giữ nguyên.

 

[Hai Lúa Miền Tây]

Bác nào có thể viết giúp cho e 1 cái macro:
Chuyển hết toàn bộ nội dung của file excel sang dạng chỉ có text, number. Tức là k còn công thức, các link nữa, mà chỉ còn text, number...Các định dạng format vẫn giữ nguyên.

Bạn dùng code sau nhé:

Sub GetValue()
On Error Resume Next
   Dim Sh As Worksheet
   For Each Sh In ThisWorkbook.Worksheets
     With Sh.UsedRange
       .Value = .Value
       .Hyperlinks.Delete
     End With
   Next Sh
End Sub

 

[sony2007]

Cám ơn bác rất nhiều. Chỉ vài dòng lệnh của bác mà giải quyết được rất nhiều vấn đề của e. Lần nữa xin cám ơn bác