kết quả từ 1 tới 1 trên 1

Ðề tài:
TÁCH MỘT CỘT THÀNH NHIỀU CỘT.

  1. #1
    Tham gia ngày
    Aug 2011
    Nơi ở
    Phường Tân Mai, TP. Biên Hòa, T. Đồng Nai
    Bài gởi
    808
    Cảm ơn
    407
    Được cảm ơn 988 lần trong 441 bài viết
    Rep Power
    24

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

    Đặ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 i, j, z, x, d As 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
    z = ActiveCell.Row
    For x = 1 To z
    d = 1
    st = 2
    Range("a" & x).Select
    abc = ActiveCell.Value
    For i = st To Len(abc)
    If i > Len(abc) Then
    Range("a" & x).Offset(0, d).Value = abc
    Exit For
    End If
    If Asc(Mid(abc, i, 1)) > 64 And Asc(Mid(abc, i, 1)) < 91 Then
    Range("a" & x).Offset(0, d).Value = Left(abc, i - 1)
    xyz = Right(abc, Len(abc) - i + 1)
    abc = xyz
    i = 1
    d = d + 1
    End If
    Next i
    If Len(Range("a" & x).Value) = Len(abc) Then
    Range("a" & x).Offset(0, 1).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ên, từ menu bạn chọn Tools, chọn Macro, chọn Macro xuất hiện cửa sổ Macro, bạn nhấn nút Run vậy là xong, cá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ạo) thê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 Cell, tố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:
    C�ch n�o ?? t�ch t? trong chu?i v?n b?n - Page 2

    Chúc các bạn thực hiện thành công.

    Các bài viết khác cùng chuyên mục:

    thay đổi nội dung bởi: be09, 06-10-2011 lúc 07:07

  2. # ADS
    DanketoanAds Circuit advertisement
    Tham gia ngày
    Always
    Nơi ở
    Advertising world
    Bài gởi
    Many
    Công ty CP Tư Vấn Thuế Vinatax CleverCFO Lac Viet

    Dịch vụ đại lý thuế VINATAS: Dịch vụ Đại Lý Thuế | Dịch vụ quyết toán Thuế | Dịch vụ kiểm toán Thuế | Dịch vụ hoàn thuế | Dịch vụ kế toán trọn gói

     

Thông tin về chủ đề

Users Browsing this Thread

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

Quyền hạn

  • 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
  •