Dạ bạn ơi. Bạn nói vậy có nghe thượng đẳng quá không ạ. Mình đăng tin đảm bảo ngữ nghĩa, văn phong lễ phép để nhờ hỗ trợ thôi có cần phải soi xét từng lỗi nhỏ vậy không ạ??
Vấn đề chính tả là sự thể hiện quan tâm tới người đọc. Dù khó nghe hay dễ nghe vẫn nên sửa nếu việc sửa không có khó khăn gì!Xin chào mọi người. mình có cột dữ liệu như trong ảnh, có cách nào để xử lí cột này thành một cột mới tách các ô có hai dòng ra không ạ???
Rất mong được m.n chiếu cố
View attachment 279515
Bạn nên rút kinh nghiệm. Mình sai, dù là lỗi nhỏ, thì phải rút kinh nghiệm. Nếu được bỏ qua thì tốt mà không được bỏ qua thì cũng phải chấp nhận, vì mình sai mà. Nên rút kinh nghiệm cho lần sau.
Cảm ơn mọi người đã góp ý thiện lành ạ. Rất xin lỗi vì mình mới tham gia nên chưa biết nhiều, mong sau này được chỉ dạy thêm.
Code giả thiết là mỗi ô chỉ có nhiều nhất là 10 dòng.
Sub tach_them_dong()
Dim r As Long, k As Long, arrVal, kq(), rng As Range, cell_ As Range
On Error Resume Next
Set rng = Application.InputBox("Hay chon vung trong mot cot", "Chon vung thao tac", Type:=8)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
Set rng = rng.Areas(1).Resize(, 1) ' thu lai thanh 1 cot de phong chon nhieu vung nhieu cot
ReDim kq(1 To rng.Count * 10, 1 To 1) ' gia thiet la moi o chi co nhieu nhat 10 dong
For Each cell_ In rng.Cells
arrVal = Split(cell_.Value, Chr(10))
For k = 0 To UBound(arrVal)
r = r + 1
kq(r, 1) = arrVal(k)
Next k
Next cell_
If r > rng.Count Then
k = r - rng.Count
rng.Resize(k).Insert xlDown
rng.Offset(-k).Resize(r).Value = kq
End If
End SubDạ vâng e cảm ơn nhiều lắm ạ. Sẽ rút kinh nghiệm lần sau.
Giả sử bạn nhập dữ liệu vào A1:A10
=FILTERXML("<p><i>"&SUBSTITUTE(TEXTJOIN(CHAR(10),TRUE,A1:A10),CHAR(10),"</i><i>")&"</i></p>","//i")Mình cũng có dùng FILTERXML cho vài trường hợp nhưng không ngờ hàm FILTERXML ảo diệu hơn mình nghĩ. Rất cảm ơn bạn nhé ^^
Rất cảm ơn bạn đã hỗ trợ ạ. mình sẽ nghiên cứu phần này thêm ^^
Kinh nghiệm của riêng tôi khẳng định : Vetmini là anh hùng bàn phím. 100 bài bình luận thì 99 bài soi mói, bới móc, nhặt nhạnh bằng kỹ lỗi sai nhỏ nhất cuat người khác để làm chủ đề.
