TÁCH MỘT CỘT THÀNH NHIỀU CỘT.

Thảo luận trong 'Excel và VBA' bắt đầu bởi be09, 6/10/11.

  1. be09

    be09 Member Hội viên mới

    Được cảm ơn:
    4
    Điểm thành tích:
    8
    Đặt code vào cửa sổ code:
    Trước tiên bạn click phải chuột vào tên sheet chứa dữ liệu bạn cần tách, chọn View code và dán đoạn Code này vào cửa sổ code:

    PHP:

    Sub cell_Transpose
    ()
    Dim ijzxAs Long
    Dim k 
    As Boolean
    Dim st 
    As Long
    Dim abc
    xyz As String
    On Error 
    GoTo errh
    Range
    ("A65356").Select
    Selection
    .End(xlUp).Select
    ActiveCell.Row
    For 1 To z
    1
    st 
    2
    Range
    ("a" x).Select
    abc 
    ActiveCell.Value
    For st To Len(abc)
    If 
    Len(abcThen
    Range
    ("a" x).Offset(0d).Value abc
    Exit For
    End If
    If 
    Asc(Mid(abci1)) > 64 And Asc(Mid(abci1)) < 91 Then
    Range
    ("a" x).Offset(0d).Value Left(abc1)
    xyz Right(abcLen(abc) - 1)
    abc xyz
    1
    1
    End 
    If
    Next i
    If Len(Range("a" x).Value) = Len(abcThen
    Range
    ("a" x).Offset(01).Value Range("a" x).Value
    End 
    If
    Next x
    errh
    :
     Exit 
    Sub
    End Sub
     
    [/ php]


    Tiếp theo bạn chọn vùng dữ liệu cần tách họ và têntừ menu bạn chọn Toolschọn Macrochọn Macro xuất hiện cửa sổ Macrobạn nhấn nút Run vậy là xongcác bạn có được kết quả tách như ý muốn.

    Lưu ý khi chia tách dữ liệu trong cột:
    Xem từng ô Cell dữ có chứa tất cả bao nhiêu từ.
    Insert (tạothêm số cột phía bên phải cột cần tách ứng với số từ ngữ có chứa trong Celltốt nhất là dư thêm 1 hoặc 2 cột càng tốt.
    Vì khi chia tách cột thì nó sẽ ghi đè lên dữ liệu của các Cell kề bên.
    Nếu bạn nào không thich sử dụng code thì xem bài này:
    [
    url=http://www.giaiphapexcel.com/forum/showthread.php?3702-Cách-nào-để-tách-từ-trong-chuổi-văn-bẳn&p=328062#post328062]C�ch n�o ?? t�ch t? trong chu?i v?n b?n - Page 2[/url]

    Chúc các bạn thực hiện thành công.
     
    Chỉnh sửa cuối: 6/10/11

Chia sẻ trang này