Giúp code Paste value toàn bộ các sheet trong file! (1 người xem)

[hoanglocphat]

Tôi thường chuyển file cho khách hàng, mỗi File có khỏang mấy chục sheet.
Do file thường có công thức link đến các file khác, nên trước khi tôi chuyển cho khách hàng thì tôi phải chọn từng sheet để Paste value, như vậy rất lâu
Các bạn giúp tôi viết code để toàn bộ các sheet trong bảng tính bị Paste value
Cảm ơn các bạn!

 

[Lê Duy Thương]

Tôi thường chuyển file cho khách hàng, mỗi File có khỏang mấy chục sheet.
Do file thường có công thức link đến các file khác, nên trước khi tôi chuyển cho khách hàng thì tôi phải chọn từng sheet để Paste value, như vậy rất lâu
Các bạn giúp tôi viết code để toàn bộ các sheet trong bảng tính bị Paste value
Cảm ơn các bạn!

DÙNG CODE NÀY THỬ XEM

Sub value_allSheets()
  Dim i As Long
  Application.ScreenUpdating = False
   For i = 1 To Sheets.Count
    Sheets(i).[A1:AW3000].Value = Sheets(i).[A1:AW3000].Value
   Next
 Application.ScreenUpdating = True
End Sub