Xin hỏi cách Tách 1 sheet thành nhiều sheet theo từng trang

[vrs]

Tôi có một file excel có một sheet khoảng 500 trang. Nội dung từng trang tách biệt. Bây giờ tôi cần tách mỗi trang trong sheet đó thành nhiều sheet mới. Nếu copy bằng tay thì sheet ban đầu bị che mất đi khi mình tạo nhiều sheet mới rất bất tiện. Còn nếu để sheet đó sang file khác thì khi copy sang bị lỗi định dạng. Mong mọi người giúp đỡ. Xin chân thành cám ơn!

 

[giaiphap]

Tôi có một file excel có một sheet khoảng 500 trang. Nội dung từng trang tách biệt. Bây giờ tôi cần tách mỗi trang trong sheet đó thành nhiều sheet mới. Nếu copy bằng tay thì sheet ban đầu bị che mất đi khi mình tạo nhiều sheet mới rất bất tiện. Còn nếu để sheet đó sang file khác thì khi copy sang bị lỗi định dạng. Mong mọi người giúp đỡ. Xin chân thành cám ơn!

Bạn có thể gửi file mẫu cho mọi người xem và giúp bạn.

 

[be_09]

Tôi có một file excel có một sheet khoảng 500 trang. Nội dung từng trang tách biệt. Bây giờ tôi cần tách mỗi trang trong sheet đó thành nhiều sheet mới. Nếu copy bằng tay thì sheet ban đầu bị che mất đi khi mình tạo nhiều sheet mới rất bất tiện. Còn nếu để sheet đó sang file khác thì khi copy sang bị lỗi định dạng. Mong mọi người giúp đỡ. Xin chân thành cám ơn!
http://www.mediafire.com/view/j6q4vdf0pf5bx1x/1.xls

Góp ý cho bạn, nên làm thế này:

1/ Dùng 1 sheet để theo dõi tất cả nội dung của lệnh công tác (khi cần tổng hợp cái gì thì dùng sheet này mà tổng hợp0.

2/ Dùng 1 sheet để in lệnh công tác, sau khi in lệnh công tác xong thì dùng nó nhập liệu vào sheet theo dõi hoặc dùng sheet lệnh công tác để truy vấn từng lệnh công tác theo nội dung từ sheet theo dõi.

 

[giaiphap]

Đúng như Be09 nói, bạn bố trí dữ liệu như thế rất khó quản lý vả lại muốn thêm, chỉnh sửa... gặp rất nhiều khó khăn. Còn yêu cầu tách ra các sheet thì việc tìm một sheet để chỉnh sửa cũng rất mất thời gian (Tìm 500 sheet). Thiết nghĩ bạn bố trí kiểu như Be09 là hợp lý nhất.

 

[vrs]

Vấn đề là file đó có sẵn rồi, bây giờ mình cần xử lý. Bạn nào biết chỉ mình với, chứ copy bằng tay hơi lâu.

 

[be_09]

Vấn đề là file đó có sẵn rồi, bây giờ mình cần xử lý. Bạn nào biết chỉ mình với, chứ copy bằng tay hơi lâu.

Ý bạn là như thế nào nên cụ thể, ví dụ:

1/ muốn gộp dữ liệu các phiếu đó lại (mỗi phiếu 1 dòng), như ý 1 bài #3:

1/ Dùng 1 sheet để theo dõi tất cả nội dung của lệnh công tác (khi cần tổng hợp cái gì thì dùng sheet này mà tổng hợp).

2/ Sau đó dùng phiếu, như ý 2 bài #3:

2/ Dùng 1 sheet để in lệnh công tác, sau khi in lệnh công tác xong thì dùng nó nhập liệu vào sheet theo dõi hoặc dùng sheet lệnh công tác để truy vấn từng lệnh công tác theo nội dung từ sheet theo dõi.

3/ Chứ bạn nêu như nội dung như bài #1, thì theo dõi rắc rối lắm sẽ chẳng thành viên nào dám giúp cái mớ bòng bong này (vì sẽ phát sinh dài dài):

Tôi có một file excel có một sheet khoảng 500 trang.

 

[vrs]

Trước tiên mình xin cảm ơn các bạn đã quan tâm và chia sẽ.

Ý bạn là như thế nào nên cụ thể, ví dụ:

1/ muốn gộp dữ liệu các phiếu đó lại (mỗi phiếu 1 dòng), như ý 1 bài #3:

File của mình người làm trước người ta đã gộp tất cả nội dung vào 1 sheet rồi bạn, nên mình ko cần gộp nữa.

2/ Sau đó dùng phiếu, như ý 2 bài #3:



3/ Chứ bạn nêu như nội dung như bài #1, thì theo dõi rắc rối lắm sẽ chẳng thành viên nào dám giúp cái mớ bòng bong này (vì sẽ phát sinh dài dài):

Mỗi trang lệnh công tác của mình nằm chỉ trên 1 trang, nên mình muốn tách từng lệnh công tác (1 trang) đó ra thành từng sheet. Tuy nhiên ở đây có thể số dòng có nội dung của trang 1 sẽ khác trang 2. Mình chỉ cần tách 1 trang excel thành 1 sheet, liệu có biện pháp nào ko bạn?

 

[be_09]

Trước tiên mình xin cảm ơn các bạn đã quan tâm và chia sẽ.


File của mình người làm trước người ta đã gộp tất cả nội dung vào 1 sheet rồi bạn, nên mình ko cần gộp nữa.



Mỗi trang lệnh công tác của mình nằm chỉ trên 1 trang, nên mình muốn tách từng lệnh công tác (1 trang) đó ra thành từng sheet. Tuy nhiên ở đây có thể số dòng có nội dung của trang 1 sẽ khác trang 2. Mình chỉ cần tách 1 trang excel thành 1 sheet, liệu có biện pháp nào ko bạn?

Từ nào đến giờ không thấy ai làm cái File theo dõi như File của bạn và cũng không ai tách đến vài trăm sheet như yêu cầu của bạn.

Hiện tại thì chưa nghĩ ra dựa vào quy luật nào để thực hiện cái yêu cầu này của bạn, vì vậy bạn chờ các thành viên khác suy nghĩ thêm coi có giải pháp nào tách được như cái yêu cầu của bạn hay không?

Theo tôi nghĩ cũng có thể làm được khi nắm được quy luật, nhưng tách nhiều sheet vầy code chạy có kham nổi không thì chưa biết.

 

[anhtuanle123]

đc chí nào soạn ra vài trăm trang đúng là kiên trì thật !
mình thì ko rành excel lắm , nhưng có biết chút VBA , bạn tải về , nhấn vào nút ok nó sẽ tự tách ra theo từng sheet theo code công việc ,
+ ý tưởng là có 3 sheet , 1 sheet program , chứa danh sách code công việc ở cột A1 , 2 là sheet data , 3 là sheet report ,
+ hàm macro sẽ quét trong danh sách code (sheet program) và tìm code tương ứng trong sheet data
nếu tìm thấy thì sẽ xuất ra report .
+ ngoài các lệnh cấu trúc điều khiển , các hàm và thủ tục như copy sheet , copy data mình có thể dùng chức năng record của excel để sinh ra !

Sub ok_()
     
   Dim code_tcv1 As String
   Dim code_tcv2 As String
     
   Dim p1, p2 As Integer
   Dim o As Integer
     
   
   
   For o = 1 To 1000
        code_tcv1 = Replace(Sheets("program").Range("A" & o), " ", "")
            
        If code_tcv1 <> "" Then
        
            For i = 1 To 10000
              
               code_tcv2 = Sheets("LOC").Range("B" & i)
               
               If InStr(code_tcv2, code_tcv1) > 0 Then
                  
                  p1 = i - 3
                  p2 = i + 28
                  
                  Sheets("report").Select
                  Sheets("report").Copy After:=Sheets(3)
                  Sheets("report (2)").Select
                  Sheets("report (2)").Name = code_tcv1
                  Range("A1").Select
                  
                  
                  Sheets("Loc").Select
                  Rows(p1 & ":" & p2).Select
                  Selection.Copy
                  Sheets(code_tcv1).Select
                  Range("A1").Select
                  ActiveSheet.Paste
                  
                  ActiveWorkbook.Sheets(code_tcv1).Tab.ColorIndex = 33
                  
               End If
                
               DoEvents
            Next i
        End If
        
   Next o
   
End Sub

năm mới chúc cả nhà zui zẻ ^^

 

[vrs]

đc chí nào soạn ra vài trăm trang đúng là kiên trì thật !
mình thì ko rành excel lắm , nhưng có biết chút VBA , bạn tải về , nhấn vào nút ok nó sẽ tự tách ra theo từng sheet theo code công việc ,
http://www.mediafire.com/download/gjfhk7w6y2fpbp4/1.xls
năm mới chúc cả nhà zui zẻ ^^

Cám ơn bạn nhiều nha. Dựa theo code của bạn mình đã tách ra được rồi.