Kết quả 1 đến 9 của 9

Chủ đề: Phân chia,tách giá trị trong excell

  1. #1
    Ngày tham gia
    Aug 2015
    Bài viết
    0

    Phân chia,tách giá trị trong excell

    Hi tất cả các bạn trong diễn đàn, mình có một vấn đề mong các bạn hướng dẫn, mình có file excell như sau
    A B
    10003730 U3
    10001757 R9,R16
    10003275 R33,R34
    14-1601-000 R11,R38,Z1
    từ file trên trên excell là mình sử dụng thanh công cụ hay hàm gì để chuyển thành dạng
    A B
    10003730 U3
    10001757 R9,
    10001757 R16
    10003275 R33,
    10003275 R34
    14-1601-000 R11,
    14-1601-000 R38,
    14-1601-000 Z1
    làm sao mình có thể chuyển đổi qua lại được hai cái này, mình làm không ra, nhờ mọi người hướng dẫn

  2. #2
    lolem19 Guest
    Mình làm cho rõ hơn một xíu bằng file hình ảnh
    các bạn xem qua, hỗ trợ giùm mình
    Thanks!

  3. #3
    tribobo1993 Guest
    Trích dẫn Gửi bởi thehoang7
    Mình làm cho rõ hơn một xíu bằng file hình ảnh
    các bạn xem qua, hỗ trợ giùm mình
    Thanks!
    Gửi file có lẽ sẽ nhanh giải quyết hơn gửi ảnh

  4. #4
    Ngày tham gia
    Aug 2015
    Bài viết
    1
    Trích dẫn Gửi bởi gtri
    Gửi file có lẽ sẽ nhanh giải quyết hơn gửi ảnh
    Cho "ké" thêm một ý:
    Hi, thanks ... là cái gì?
    Viết tiếng Việt sẽ dễ hiểu hơn.

  5. #5
    haohiep.hoang@gmail.com Guest
    OK<OK.
    mình gửi file excell nhờ các bạn hỗ trợ

  6. #6
    vanphong130896 Guest
    Trích dẫn Gửi bởi thehoang7
    OK<OK.
    mình gửi file excell nhờ các bạn hỗ trợ
    Xem file đính kèm thế nào.
    ( Viết thành 2 sub )


    Mã:
    Public Sub Phan_Chia_Tach()
    Dim DL, kq(), r As Long, Tam, i
    
    On Error Resume Next
    DL = Sheet1.Range("A4").CurrentRegion
    ReDim kq(1 To 10000, 1 To 2)
    
    For r = 1 To UBound(DL)
    For Each Tam In Split(DL(r, 2), ",")
    i = i + 1
    kq(i, 1) = DL(r, 1)
    kq(i, 2) = Tam
    Next Tam
    Next r
    
    Sheet1.Range("E4").Resize(i, 2).Value = kq
    Sheet1.Range("E4").CurrentRegion.Columns.AutoFit
    Sheet1.Range("A4").CurrentRegion.Clear
    End Sub
    
    Public Sub Ghep_Nhom()
    Dim DL, kq(), r As Long, i
    
    On Error Resume Next
    DL = Sheet1.Range("E4").CurrentRegion
    
    With CreateObject("scripting.dictionary")
    For r = 1 To UBound(DL)
    If Not .exists(DL(r, 1)) Then
    .Add DL(r, 1), DL(r, 2)
    Else
    .Item(DL(r, 1)) = .Item(DL(r, 1)) & "," & DL(r, 2)
    End If
    Next r
    ReDim kq(1 To .Count, 1 To 2)
    
    For r = 1 To UBound(DL)
    If .exists(DL(r, 1)) Then
    i = i + 1
    kq(i, 1) = DL(r, 1): kq(i, 2) = .Item(DL(r, 1))
    .Remove DL(r, 1)
    End If
    Next r
    End With
    
    Sheet1.Range("A4").Resize(i, 2).Value = kq
    Sheet1.Range("A4").CurrentRegion.Columns.AutoFit
    Sheet1.Range("E4").CurrentRegion.Clear
    End Sub
    ---
    ( Chủ thớt: Bị nhắc nhở dùng tiếng Việt rồi nha )

  7. #7
    thuthuy1991 Guest
    Muốn chuyển đổi qua lại thì xem thử file này

  8. #8
    hoaian Guest
    Trích dẫn Gửi bởi Ba Tê
    Muốn chuyển đổi qua lại thì xem thử file này
    Bác siêu quá, cảm ơn bác nha

  9. #9
    bachlien24 Guest
    gtri
    Thành viên tiêu biểuCảm ơn Bác nha! Sao lại làm hay vay nhỉ

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •