Diễn đàn giaiphapexcel.com sẽ chuyển sang hoạt động ở link sau

http://www.giaiphapexcel.com/diendan/forums


[CLICK] học VBA ở Đà Nẵng tháng 5/2017


Trang 1/2 1 2 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 12

Ðề tài: Làm sao lập hàm gom dữ liệu trong nhiều cột còn 1 cột?

  1. Làm sao lập hàm gom dữ liệu trong nhiều cột còn 1 cột?

    Ví dụ em có 1 bảng gồm 3 cột họ tên HS (vd như cột họ tên HS giỏi, Khá, Tb), làm sao chỉ dùng hàm có thể gom lại còn 1 cột mà hiển thị hết họ tên HS loại giỏi rồi mới tới họ tên HS loại khá rồi đến loại Tb v.v..?
    Em xin cảm ơn

  2. Bạn làm theo cách sau nha!

  3. Bạn hiểu nhầm ý mình, mình đưa 1 file minh họa để bạn hiểu ý mình nha
    Tập tin đính kèm Tập tin đính kèm

  4. Trích Nguyên văn bởi ngocnam View Post
    Ví dụ em có 1 bảng gồm 3 cột họ tên HS (vd như cột họ tên HS giỏi, Khá, Tb), làm sao chỉ dùng hàm có thể gom lại còn 1 cột mà hiển thị hết họ tên HS loại giỏi rồi mới tới họ tên HS loại khá rồi đến loại Tb v.v..?
    Em xin cảm ơn
    Nếu chỉ có 3 cột sao không copy, paste cho lẹ?
    Bạn nói chính xác dử liệu của bạn như thế nào, sẽ có người giúp bạn hoàn tất việc này (có lẽ bằng VBA)

  5. Mình đã nói là ví dụ thôi mà, có thể hàng mấy trăm HS và nhiều cột, thực ra nếu không được thì chỉ còn cách copy, paste

  6. Thử code này xem:
    PHP Code:
    Option Explicit
    Sub Gop
    ()
      
    Dim i As LongEr As LongSd As Long
      Dim Rng 
    As Range
      Application
    .ScreenUpdating False
      
    [F3:G10000].ClearContents
      
    For 1 To [A2].End(xlToRight).Column
        Er 
    = [F65536].End(xlUp).Row 1
        Set Rng 
    Range(Cells(3i), Cells(10000i)).SpecialCells(223)
        
    Sd Rng.Rows.Count
        With Cells
    (Er6).Resize(Sd1)
          .
    Value Rng.Value
          
    .Offset(, 1).Value Cells(2i)
        
    End With
      Next
      Application
    .ScreenUpdating True
    End Sub 
    Xem file đính kèm!
    Nếu dử liệu của bạn có khác hơn thì tốt nhất nên đưa toàn bộ file lên để làm luôn 1 thể (vụ này không khó khăn gì)
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: ndu96081631, 31-08-08 lúc 12:32 PM

  7. Trích Nguyên văn bởi ngocnam View Post
    Mình đã nói là ví dụ thôi mà, có thể hàng mấy trăm HS và nhiều cột, thực ra nếu không được thì chỉ còn cách copy, paste
    Bạn xem file đính kèm nhé. 40.000 dòng copy chưa tới 2 giây, huống hồ gì vài trăm.
    PHP Code:
    Sub MyProcess()
    Dim RWGioiRWKhaRWTB As Long
    RWgioi 
    Sheets("Data").[A65000].End(xlUp).Row
    RWKha 
    Sheets("Data").[B65000].End(xlUp).Row
    RWTB 
    Sheets("Data").[C65000].End(xlUp).Row
    '---------------------------------------------------
    With Sheets("Data")
    .Columns("F:G").ClearContents
    .[F1] = "Ho va Ten"
    .[G1] = "Xep Loai"
    .Range("A2:A" & RWgioi).Copy .[F2]
    .Range("B2:B" & RWKha).Copy .Cells(RWgioi + 1, 6)
    .Range("C2:C" & RWTB).Copy .Cells(RWgioi + RWKha + 0, 6)
    .Range("G2:G" & RWgioi) = "Gioi"
    .Range("G" & RWgioi + 1 & ":G" & RWgioi + RWKha) = "Kha"
    .Range("G" & (RWgioi + RWKha) & ":G" & (RWgioi + RWKha + RWTB - 2)) = "TB"
    End With
    End Sub 
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: cadafi, 31-08-08 lúc 06:02 PM

  8. Gom cột

    gởi bạn phần này thử xem nhe ! Bạn có thể sửa chữa lại!
    Tập tin đính kèm Tập tin đính kèm

  9. Trích Nguyên văn bởi ngocnam View Post
    Ví dụ em có 1 bảng gồm 3 cột họ tên HS (vd như cột họ tên HS giỏi, Khá, Tb), làm sao chỉ dùng hàm có thể gom lại còn 1 cột mà hiển thị hết họ tên HS loại giỏi rồi mới tới họ tên HS loại khá rồi đến loại Tb v.v..?
    Em xin cảm ơn
    Bạn xem đã đúng chưa
    Tập tin đính kèm Tập tin đính kèm
    • Loại tập tin: xls GOM.xls (21.0 KB, 22 lần tải)

  10. Thêm 1 tham khảo, có thể tăng tốc phần nào chăng(!)

    Dữ liệu theo của NDU96081631

    PHP Code:
    Option Explicit
    Sub TgHop
    ()
     
    Dim Ff As BytelRow As Long
     Application
    .ScreenUpdating False:          [G1] = "XepLoai"
     
    Range([f2], [g1000]).Clear:                 [f1] = "HoTen"
     
    For Ff 1 To 3
       lRow 
    Cells(65432Ff).End(xlUp).Row 2
       
    [f65432].End(xlUp).Offset(1).Resize(lRow) = Range(Cells(3Ff), Cells(65432Ff)).Value
       
    [G65432].End(xlUp).Offset(1).Resize(lRow) = Cells(2Ff).Value
     Next Ff
    End Sub 
    0909 127 085

Trang 1/2 1 2 cuốicuối

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. Tạo header & Footer nhiều lần khác nhau trong nhiều trang phải làm như thế nào?
    Viết bởi huatrungkien2512 trong chuyên mục Hỏi đáp những vấn đề khác
    Trả lời: 4
    Bài mới gởi: 29-10-13, 11:29 PM
  2. Hỏi cách Upload dữ liệu từ nhiều file .html,.txt,... vào nhiều sheets trong Excel VBA
    Viết bởi hoangtu1506 trong chuyên mục Hàm và công thức Excel
    Trả lời: 0
    Bài mới gởi: 11-08-10, 03:02 PM
  3. Xóa nhiều vùng khác nhau trong nhiều sheet
    Viết bởi trantuonganh2008 trong chuyên mục Hàm và công thức Excel
    Trả lời: 20
    Bài mới gởi: 19-07-10, 08:59 PM
  4. viết hàm trả ra nhiều giá trị trong nhiều ô
    Viết bởi dânlmgoc trong chuyên mục Hàm và công thức Excel
    Trả lời: 6
    Bài mới gởi: 30-05-09, 03:14 AM
  5. Truy xuất dữ liệu trong nhiều Sheet hoặc nhiều Name?
    Viết bởi BNTT trong chuyên mục Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu
    Trả lời: 4
    Bài mới gởi: 10-07-08, 03:22 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.
  •