Đổi tên hàng loạt sheet tên giống nhau

[bellatran]

em chào các bác ạ, em muốn nhờ các bác cho em code như sau: Sau khi em tách sheet trong file thành các file nhỏ xong thì em muốn đổi tên toàn bộ tên sheet cũ của nó thành 1 tên giống hệt nhau thì em phải làm như thế nào a
File của em khác tên file nhưng tên sheet lại phải giống nhau
em đã có code chia file và đổi dc tên file rồi và làm thành công nhưng chưa đổi dc sheet a
em cảm ơn ạ

 

[befaint]

em đã có code chia file và đổi dc tên file rồi

Bạn gửi code đó lên đây để thêm cái bạn cần vào.

 

[bellatran]

alo các bác ơi các bác đâu r

 

[Tình nghĩa giang hồ]

Sub doi_ten_sheet_hang_loat()

For i = 1 To Application.Sheets.count

On Error Resume Next

oldname = Cells(i, 1).Value

newname = Cells(i, 2).Value

Sheets(oldname).Name = newname

Next

End Sub

Muốn làm bài này phải liệt kê sheet ra bảng tính trước. Không có file đính kèm, bạn hỏi chung chung, mình gửi code chung chung nhé