Hiển thị kết quả tìm kiếm từ 1 đến 5 trên tổng số: 5
  1. #1
    Tham gia ngày
    10 2008
    Bài gởi
    2
    Cảm ơn
    0
    Được cảm ơn 0 lần trong 0 bài viết

    Tách dữ liệu trong 1 ô cell thành nhiều cột

    Em có 1 ô dữ liệu trong cell có nội dung như sau: " Trần Văn A
    Công ty Cổ phần B
    Số điện thoại"
    Giờ em muốn tách các dữ liệu này sang thành các cột khác nhau, Cột A" Trần Văn A", Cột B" Công ty Cổ phần B" Cột C" Số điện thoại". Em có gửi hình như trong file đính kèm. Vậy em có thể dùng lệnh j đc ạ? Em xin chân thành cảm ơn mọi người.
    Tập tin đính kèm Tập tin đính kèm

  2. #2
    đưa file mẫu lên đi bạn, xem qua file bạn chụp nghe chừng rất khó xử lý, tuy nhiên bạn có thể chèn thêm vào mỗi ô cần tách 1 ký tự đặc biệt nào đó vào file mẫu thì sẽ xử lý được.

  3. #3
    Tham gia ngày
    04 2011
    Nơi Cư Ngụ
    Phường Tân Mai, TP. Biên Hòa, tỉnh Đồng Nai
    Bài gởi
    976
    Cảm ơn
    1,161
    Được cảm ơn 1,159 lần trong 592 bài viết
    Trích Nguyên văn bởi vittran View Post
    Em có 1 ô dữ liệu trong cell có nội dung như sau: " Trần Văn A
    Công ty Cổ phần B
    Số điện thoại"
    Giờ em muốn tách các dữ liệu này sang thành các cột khác nhau, Cột A" Trần Văn A", Cột B" Công ty Cổ phần B" Cột C" Số điện thoại". Em có gửi hình như trong file đính kèm. Vậy em có thể dùng lệnh j đc ạ? Em xin chân thành cảm ơn mọi người.
    Bạn hãy sử dụng Code này bạn sẽ toại nguyện theo ý muốn.
    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 họ và tên, chọn View code và dán đoạn Code này vào cửa sổ code.

    [Php] [code]

    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 Tôls, 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, bạn có được kết quả rồi nhé, bạn thấy đơn giản không?

    Lưu ý:
    Trước khi chạy code bạn cần Insert số dòng bên phải nhiều hơn các từ chứa trong cell cần tách để chứa dữ liệu tách ra, nếu không nó sẽ ghi đè lên dữ liệu của các Cell kề bên.

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

  4. #4
    Tham gia ngày
    06 2010
    Nơi Cư Ngụ
    Hải dương
    Bài gởi
    145
    Cảm ơn
    804
    Được cảm ơn 294 lần trong 94 bài viết
    Bạn thử dùng File này xem có đúng ý bạn không nhé?
    Nhớ Enable Marco nhé khi bạn chỉnh sửa ô nào trên Sheet File gốc thì Sheet File mới sẽ tự cập nhật
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: phan ngoc lan, 07-10-11 lúc 12:55 AM

  5. #5
    Tham gia ngày
    05 2008
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    4,349
    Cảm ơn
    3,522
    Được cảm ơn 7,059 lần trong 3,322 bài viết
    Cứ cho dữ liệu của bạn là cột A đi. Ta làm như sau khỏi code vì chỉ 1 lần và rất nhanh.


    1/Nhập công thức sau vào ô B1 rồi filldown: Substitute(A1,Char(10),"@")

    2/Copy kết quả rồi Paste Speacial --Value vào cột A

    3/Chọn cột A--Vào menu Data--Chọn Text to Columns
    a/Chọn Delimited ---Next

    b/Trong ô Other gõ chữ @---Next

    c/Trong ô Destination bạn chon vị trí đặt kết quả (Thậm chí đặt luôn $A$1)---Finish
    Hì, giờ xem kết quả ra sao!!!!
    thay đổi nội dung bởi: sealand, 06-10-11 lúc 11:48 PM

  6. Có 3 thành viên cảm ơn sealand về bài viết này:


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)

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

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]