Copy nhiều sheet

[quocphuoc88]

Kính thưa các a chị, e mới vào nghề kế toán. Sếp đưa theo dõi các nhân viên, trên file có tất cả 200 sheets, bay giờ sếp kêu e copy tất cả vào 1 sheet để theo dõi . Nếu mà copy thủ công thì e ko biết khi nào xong, mong a chị viết giúp giùm e 1 cái code

E xin cảm ơn nhiều ạ !

http://www.mediafire.com/?z3275dyu7yz67kr

Do file hơn 2mb nên e up lên mediafire !

 

[SA_DQ]

Bạn làm các động tác sau:

(*) Tạo mới thêm 1 trang tính & gán nó cái tên 'GPE'

(*) Chép fần tiêu đề của trang tính nào đó lên 'GPE' vừa tạo

Cho chạy macro sau:

Option Explicit
Sub CopyTo()
 Dim Sh As Worksheet
 
 Sheets("GPE").Select
 For Each Sh In ThisWorkbook.Worksheets
   If Sh.Name <> "GPE" Then
      With [B65500].End(xlUp)
         Sh.[B2].CurrentRegion.Offset(1, 1).Copy Destination:=.Offset(1)
      End With
8      Sh.Name = "S" & Right("00" & CStr(Sh.Index), 3)
   End If
 Next Sh
End Sub

(Trong đó câu lệnh có đánh số để đổi tên các trang tính theo đúng điệu mà chúng cần có!)

 

[khoa_pr]

Chào HYen17 !
Tôi đã làm thử như lời bạn : Copy sheet bất kỳ trong 200 sheet, xoa hết nội dung, giữ lại tiêu đề các cột (dòng tiêu đề nằm từ A1:G1). tôi chép đoạn code của bạn, nhưng khi chạy Macro thì luôn bị báo lỗi và doạn code Sheets("GPE").Select bị bôi màu vàng. xin bạn chỉ giúp lỗi chổ nào vì sheet mới tôi đổi tên là GPE như bạn dặn.

 

[haonlh]

Tôi đã góp lại cho bạn. Chú ý:
Có kèm chương trình.
Trong file dữ liệu, từ Table 1 - 200 có công thức tính số hàng của từng Sheets trên ô I1. Địa chỉ này tham gia chương trình.

 

[khoa_pr]

cam on ban haonlh. mong ban giai thich code giup voi: chả hiểu tại sao ban lại để "kq!=1" có dấu chấm than để làm gì, . . .

 

[haonlh]

cam on ban haonlh. mong ban giai thich code giup voi: chả hiểu tại sao ban lại để "kq!=1" có dấu chấm than để làm gì, . . .

Do không khai báo bằng lệnh DIM, mọi tên biến đều có kiểu varian (không nhớ, viết thể có sai thì bỏ qua). Viết tên biến có kèm dấu chấm than để chương trình quy kiểu của biến là integer.

Nếu bỏ qua cũng không sao.
Ả sao không thấy quocphuoc88 có ý kiến gì nhỉ. Tất nhiên, có thể bạn đã thành công sau bài của HYen và không chú ý nữa.

Chào khoa_pr

 

[quocphuoc88]

Do không khai báo bằng lệnh DIM, mọi tên biến đều có kiểu varian (không nhớ, viết thể có sai thì bỏ qua). Viết tên biến có kèm dấu chấm than để chương trình quy kiểu của biến là integer.

Nếu bỏ qua cũng không sao.
Ả sao không thấy quocphuoc88 có ý kiến gì nhỉ. Tất nhiên, có thể bạn đã thành công sau bài của HYen và không chú ý nữa.

Chào khoa_pr

Sory, đúng là bác Hyen17 đã làm đúng theo ý mình nên mình bấm thank chứ ko reply !

 

[tvl297]

anh ơi có thể gộp nhiều sheep không giống nhau vào 1 sheep có được không. Anh có thể làm giúp em được ko

 

[vodoi2x]

anh ơi có thể gộp nhiều sheep không giống nhau vào 1 sheep có được không. Anh có thể làm giúp em được ko

Bạn nên mở chủ đề mới, và post file lên thì mọi người mới giúp được ah

buông 1 câu thế thì sao ai giúp đây

Chúc post chủ đề mới thành công

 

[tvl297]

thank you! tại ít viết bài trên diễn đàn lên không để ý vấn đề này