Hiển thị kết quả tìm kiếm từ 1 đến 4 trên tổng số: 4
  1. #1
    Tham gia ngày
    03 2008
    Nơi Cư Ngụ
    Đồng ruộng Long An
    Bài gởi
    5,435
    Cảm ơn
    8,463
    Được cảm ơn 9,538 lần trong 4,293 bài viết

    Gộp cột và Tách sheet

    Chào các anh chị, mình có một vấn đề như sau:

    1.) Gộp cột: Mình có 1 Data có nhiều cột ngày và muốn dữ liệu cột ngày đó chuyển thành 1 cột.
    2.) Từ bảng gộp đó mình tách sang mỗi một ngày và một mã thành 1 sheet riêng biệt và ghi tên sheet tuong ứng với nó.

    Nhờ các anh chị giúp đỡ
    Cám ơn nhiều
    Tập tin đính kèm Tập tin đính kèm
    Già của tuổi trẻ, trẻ của tuổi già.

  2. #2
    Tham gia ngày
    09 2008
    Bài gởi
    2,635
    Cảm ơn
    2,709
    Được cảm ơn 3,506 lần trong 1,934 bài viết

    Macro cho câu 1;

    PHP Code:
    Option Explicit

    Sub GopCot
    ()
     
    Dim lCol As BytelRw As Long
     Dim jJ 
    As ByteClls As RangeSh As Worksheet
     
     Set Sh 
    Sheets("GCot"):               Sh.Range("A2:E99").Clear
     Sheets
    ("Data").Select:                 lCol = [IV1].End(xlToLeft).Column
     lRw 
    = [A65500].End(xlUp).Row
     
    For jJ 3 To lCol
        
    For Each Clls In Range(Cells(2jJ), Cells(lRwjJ))
            
    With Sh.[A65500].End(xlUp)
                If 
    Clls.Value <> "" Then
                    
    .Offset(1).Value Cells(Clls.Row1).Value
                    
    .Offset(11).Value Cells(Clls.Row2).Value
                    
    .Offset(12).Value Clls.Value
                    
    .Offset(13).Value Cells(1jJ).Value
                End 
    If
            
    End With
        Next Clls
     Next jJ
    End Sub 
    Câu hai, thông cảm, mình chưa thông cách làm.

  3. Thành viên sau cảm ơn ChanhTQ@ về bài viết này:


  4. #3
    Tham gia ngày
    06 2008
    Bài gởi
    23,500
    Cảm ơn
    13,500
    Được cảm ơn 41,863 lần trong 18,950 bài viết
    Trích Nguyên văn bởi ChanhTQ@ View Post
    PHP Code:
    Option Explicit

    Sub GopCot
    ()
     
    Dim lCol As BytelRw As Long
     Dim jJ 
    As ByteClls As RangeSh As Worksheet
     
     Set Sh 
    Sheets("GCot"):               Sh.Range("A2:E99").Clear
     Sheets
    ("Data").Select:                 lCol = [IV1].End(xlToLeft).Column
     lRw 
    = [A65500].End(xlUp).Row
     
    For jJ 3 To lCol
        
    For Each Clls In Range(Cells(2jJ), Cells(lRwjJ))
            
    With Sh.[A65500].End(xlUp)
                If 
    Clls.Value <> "" Then
                    
    .Offset(1).Value Cells(Clls.Row1).Value
                    
    .Offset(11).Value Cells(Clls.Row2).Value
                    
    .Offset(12).Value Clls.Value
                    
    .Offset(13).Value Cells(1jJ).Value
                End 
    If
            
    End With
        Next Clls
     Next jJ
    End Sub 
    Câu hai, thông cảm, mình chưa thông cách làm.
    Em nghĩ chỉ cần 1 vòng lập thôi chứ Sư phụ nhỉ
    PHP Code:
    Private Sub CommandButton1_Click()
      
    Dim Clls As RangeAs Long
      Range
    ("A1").CurrentRegion.Offset(1).ClearContents
      
    For Each Clls In Sheet1.Range("A1").CurrentRegion.Offset(12).SpecialCells(2)
          
    Cells(2"A").Resize(, 2).Value Sheet1.Cells(Clls.Row1).Resize(, 2).Value
          Cells
    (2"C") = Sheet1.Cells(1Clls.Column)
          
    Cells(2"D") = Clls
          i 
    1
      Next
    End Sub 

  5. Có 3 thành viên cảm ơn ndu96081631 về bài viết này:


  6. #4
    Tham gia ngày
    03 2008
    Nơi Cư Ngụ
    Đồng ruộng Long An
    Bài gởi
    5,435
    Cảm ơn
    8,463
    Được cảm ơn 9,538 lần trong 4,293 bài viết
    Cám ơn 2 anh đã giải quyết được câu 1;

    Câu 2 tạm thời em giải quyết là dùng dạng chuổi để ghép tên và ngày, sau đó tách sheet ra ra theo dạng mỗi một ngày và một mã thành 1 sheet riêng biệt và ghi tên sheet tuong ứng với nó.

    Có gì nhờ anh chị góp ý trong file đính kèm nhé
    Thân
    Tập tin đính kèm Tập tin đính kèm
    Già của tuổi trẻ, trẻ của tuổi già.

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Làm sao lấy dữ liệu từ nhiều sheet về 1 sheet (mỗi sheet dữ liệu do 1 người cung cấp)
    Viết bởi nothingtolove trong chuyên mục Tìm kiếm, dò tìm và tham chiếu
    Trả lời: 24
    Bài mới gởi: 16-07-14, 09:27 AM
  2. lấy dữ liệu từ sheet này lên sheet kia- 2 sheet nằm trong 2 file khác nhau
    Viết bởi ntndvn trong chuyên mục Những vấn đề chung
    Trả lời: 2
    Bài mới gởi: 23-05-12, 12:05 AM
  3. Cần giúp đỡ Thủ thuật copy hàm trong Excel từ sheet này sang sheet khác
    Viết bởi ntbcadcam trong chuyên mục Hàm và công thức Excel
    Trả lời: 8
    Bài mới gởi: 17-11-10, 09:26 PM
  4. Copy từ sheet này sang sheet kia mà không cần mở sheet kia lên
    Viết bởi HoangHacVT trong chuyên mục Lập Trình với Excel
    Trả lời: 13
    Bài mới gởi: 22-07-10, 06:08 PM
  5. xin cho hỏi: cách tham chiếu chuyển Data từ sheet 1 sang sheet 2
    Viết bởi heoheo21 trong chuyên mục Tìm kiếm, dò tìm và tham chiếu
    Trả lời: 2
    Bài mới gởi: 26-01-10, 10:05 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]