Tách dữ liệu trong 01 ô (dòng) ra thành nhiều dòng! (1 người xem)

[befaint]

1 phút

Cách này hay đó anh.
Khai triển ở bài này à anh.
http://www.giaiphapexcel.com/dienda...ệu-ra-nhiều-dòng-dựa-vào-cột-số-lượng.129115/
Thêm động tác chuyển cột số lượng =1 hết mất 2 giây nữa cho tròn 1phút.
-------
Trong video em thấy có nút "Xem mật khẩu wifi", tích hợp nhiều thứ ghê.

 

[huuthang_bd]

Cách này hay đó anh.
Khai triển ở bài này à anh.
http://www.giaiphapexcel.com/diendan/threads/nhờ-gpe-giúp-tao-hàm-excel-tách-dữ-liệu-ra-nhiều-dòng-dựa-vào-cột-số-lượng.129115/
Thêm động tác chuyển cột số lượng =1 hết mất 2 giây nữa cho tròn 1phút.
-------
Trong video em thấy có nút "Xem mật khẩu wifi", tích hợp nhiều thứ ghê.

Topic đó bị khóa rồi mà. Mà tôi cũng có mô tả cách làm ở bài 2 rồi

Trong video em thấy có nút "Xem mật khẩu wifi", tích hợp nhiều thứ ghê.

Mấy cái linh tinh thôi . Cái đó để xem lại mật khẩu wifi đã lưu trên máy thôi. Win10 không kết nối không xem mật khẩu bình thường được. Công ty tôi hay đi công tác nên nhiều lúc có người hỏi mình xem cho tiện thôi mà.

 

[minhbinhdinh]

Chào diễn đàn, nhờ mọi người giúp cho,
giúp mình đoạn code để làm như trong file mình gửi lên nhé :
tự xuống dòng khi gặp "(" hoặc "-"

 

[huuthang_bd]

Chào diễn đàn, nhờ mọi người giúp cho,
giúp mình đoạn code để làm như trong file mình gửi lên nhé :
tự xuống dòng khi gặp "(" hoặc "-"

Bạn nên mở topic mới.

 

[kilypi]

Chào các anh, chị!
Em đang có 01 sheet excel nhưng không biết cách nào để tách dữ liệu được nhập trong 1 dòng ra thành nhiều dòng. Xin giúp đỡ và cám ơn rất nhiều.
Em đã dùng những hàm ở trên nhưng chưa có kết quả.
Em cảm ơn.

 

[dhn46]

Chào các anh, chị!
Em đang có 01 sheet excel nhưng không biết cách nào để tách dữ liệu được nhập trong 1 dòng ra thành nhiều dòng. Xin giúp đỡ và cám ơn rất nhiều.
Em đã dùng những hàm ở trên nhưng chưa có kết quả.
Em cảm ơn.

Công thức của bạn

="- "&TRIM(MID(SUBSTITUTE($E$5,";",REPT(" ",255)),(ROW(A1)-1)*255+1,255))

 

[kilypi]

="- "&TRIM(MID(SUBSTITUTE($E$5,";",REPT(" ",255)),(ROW(A1)-1)*255+1,255))

Cảm ơn dhn46 nhé.

 

[bùi thị hòa]

Chào anh chị !

E là thành viên mới, anh chị giúp e tách file sau được không ạ?

E cảm ơn mọi người

 

[phihndhsp]

Chào anh chị !

E là thành viên mới, anh chị giúp e tách file sau được không ạ?

E cảm ơn mọi người

dữ liệu này nhiều lắm không? nếu nhiều thì nên sử dụng macro

 

[bùi thị hòa]

Dạ nhiều anh ạ, e chỉ đưa ví dụ để miêu tả mong muốn của mình thôi ạ! e muốn nhờ anh chị giúp e bằng VBA ạ

E cảm ơn ạ

 

[phihndhsp]

Dạ nhiều anh ạ, e chỉ đưa ví dụ để miêu tả mong muốn của mình thôi ạ! e muốn nhờ anh chị giúp e bằng VBA ạ

E cảm ơn ạ

nếu nhiều thì bạn nên cho thêm vài dòng dữ liệu nữa, chắc chắn với bạn là chưa tới 1h bạn sẽ có bài trả lời như ý muốn

 

[Ba Tê]

Dạ nhiều anh ạ, e chỉ đưa ví dụ để miêu tả mong muốn của mình thôi ạ! e muốn nhờ anh chị giúp e bằng VBA ạ

Bạn xem file.

 

[befaint]

tách file

Sub vidu()
    Const deli = ";"
    Const maxR = 65000
    Dim a, Res(), i, j, k, IDs, ID, maxC
    a = Sheet2.UsedRange.Value
    If IsArray(a) = False Then Exit Sub
    maxC = UBound(a, 2)
    ReDim Res(1 To maxR, 1 To maxC)
    For k = 1 To maxC
        Res(1, k) = a(1, k)
    Next k
    j = 1
    For i = 2 To UBound(a, 1)
        IDs = a(i, 1)
        If Len(IDs) > 0 Then
            For Each ID In Split(IDs, deli)
                If j > maxR Then MsgBox "nhieu ket qua >> " & maxR: Exit Sub
                j = j + 1
                Res(j, 1) = ID
                For k = 2 To maxC
                    Res(j, k) = a(i, k)
                Next k
            Next ID
        End If
    Next i
    If j > 1 Then
        Sheet1.UsedRange.ClearContents
        Sheet1.Range("A1").Resize(j, maxC) = Res
    End If
End Sub

 

[bùi thị hòa]

Bạn xem file.

Dạ được rồi ạ !!!! E cảm ơn anh nhiều ạ

 

[bùi thị hòa]

Anh ơi, còn bị ở cột D nữa ạ, e muốn chỉ tách cột A, còn các cột còn lại sẽ theo cột đầu tiên ạ.

 

[bien.xanh]

giúp mình tách hàng file này với! Không phải dân chuyên nên mấy lệnh dài dài không hiểu....
Xin cảm ơn!

 

[be_09]

giúp mình tách hàng file này với! Không phải dân chuyên nên mấy lệnh dài dài không hiểu....
Xin cảm ơn!

Nếu cột A có 2 loại như thế này 601; 602 với cỡ 1000 dòng dữ liệu thì làm thủ công chắc cỡ 1 phút, chẳng cần code kiết gì cả.

 

[huonglien1901]

giúp mình tách hàng file này với! Không phải dân chuyên nên mấy lệnh dài dài không hiểu....
Xin cảm ơn!

 

[HieuCD]

Làm luôn "tách hàng" cho đủ

 

[THANHSANGDT]

Dạ,

Xin giúp em với trong file em chỉ cần tách lấy ra địa chỉ email trong dấu < >. Xin giúp em với

Em cám ơn nhiều !
Da, em cám ơn mọi người đọc comment em search google tìm được công thức rồi.

=iferror(Regexextract(A1;"[A-z0-9._%+-]+@[A-z0-9.-]+\.[A-z]{2,4}");"")

em đã giải quyết được.