Cách này hay đó anh.
Topic đó bị khóa rồi mà. Mà tôi cũng có mô tả cách làm ở bài 2 rồiCá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ê.
Mấy cái linh tinh thôiTrong video em thấy có nút "Xem mật khẩu wifi", tích hợp nhiều thứ ghê.
. 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à.
Bạn nên mở topic mới.
Công thức của bạn
="- "&TRIM(MID(SUBSTITUTE($E$5,";",REPT(" ",255)),(ROW(A1)-1)*255+1,255))
dữ liệu này nhiều lắm không? nếu nhiều thì nên sử dụng macro
e muốn nhờ anh chị giúp e bằng VBA ạ
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ốnDạ nhiều anh ạ, e chỉ đưa ví dụ để miêu tả mong muốn của mình thôi ạ!
E cảm ơn ạ
Bạn xem file.Dạ nhiều anh ạ, e chỉ đưa ví dụ để miêu tả mong muốn của mình thôi ạ!
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 SubDạ được rồi ạ !!!! E cảm ơn anh nhiều ạ
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ả.
