kết quả từ 1 tới 1 trên 1
  1. #1
    Tham gia ngày
    Aug 2011
    Nơi ở
    Phường Tân Mai, TP. Biên Hòa, tỉnh Đồng Nai
    Bài gởi
    721
    Cảm ơn
    242
    Được cảm ơn 789 lần trong 351 bài viết
    Rep Power
    20

    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:
    [Chỉ có thành viên mới có thể nhìn thấy links. Bạn hãy nhấn vào đây để đăng ký...]

    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
     

Thông tin về chủ đề

Users Browsing this Thread

Hiện đang có 2 người xem chủ đề này. (0 thành viên và 2 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
  •