Chuyển nhiều sheet trong 1 file ra thành 1 file excel mới (chuyển thành value)

[LuuGiaPhúc]

Em có 1 file excel có 10 sheet, giờ em muốn tạo 1 nút khi nhấn vào thì nó sẽ lấy sheet1 , sheet 2 , sheet 3 , sheet 4 , sheet 5, xuất ra 1 file mới (chuyển tất cả công thức trong 5 sheet này thành value).
Chú ý : Sheet 1 đến sheet 5 của em là table, nên em copy bằng tay ra nó cũng báo lỗi.

Nhờ các anh chị giúp em với
Cảm ơn anh chị

 

[Quang_Hải]

Lưu file thành 1 file mới, chạy code này sẽ xóa hết công thức đang có. Chọn những sheet không cần và xóa đi. Vậy chắc cũng là một cách

*********************
Lâu lâu viết một bài coi như là thông báo bình an

Sub Get_Value()
Dim sh as worksheet
For Each sh in Thisworkbook.worksheets
     sh.usedrange.value=sh.usedrange.value
next
End Sub

 

[befaint]

Có addins ngon lành.

Cách lưu 1 WorkBook thành 1 WorkBook mới

Chào các anh/chị/em Hiện giờ tôi có 1 WorkBook gồm 5 Sheet từ sheet1 đến Sheet5 ( Các sheets này có chưa công thức). Bây giờ tôi muốn lưu thành 1 WorkBook mới, chỉ có 2 Sheet( Sheet2 và Sheet5) và không còn công thức( chỉ còn giá trị). Vậy Code như thế nào, mong anh/chị chỉ giúp. Xin cảm ơn.

www.giaiphapexcel.com

 

[Maika8008]

Lưu file thành 1 file mới, chạy code này sẽ xóa hết công thức đang có. Chọn những sheet không cần và xóa đi. Vậy chắc cũng là một cách

*********************
Lâu lâu viết một bài coi như là thông báo bình an

Sub Get_Value()
Dim sh as worksheet
For Each sh in Thisworkbook.worksheets
     sh.usedrange.value=sh.usedrange.value
next
End Sub

Hic! Tiếc chi bác không viết thêm mấy dòng Save As và xóa mấy sheet thừa nhỉ

 

[LuuGiaPhúc]

Lưu file thành 1 file mới, chạy code này sẽ xóa hết công thức đang có. Chọn những sheet không cần và xóa đi. Vậy chắc cũng là một cách

*********************
Lâu lâu viết một bài coi như là thông báo bình an

Sub Get_Value()
Dim sh as worksheet
For Each sh in Thisworkbook.worksheets
     sh.usedrange.value=sh.usedrange.value
next
End Sub

Bài #1 em quên mất vụ sheet 1 đến sheet 5 của em là table nên nó báo lỗi khi copy, em đã đính kèm file vào rồi đó , anh giúp e nhé