Hình như cái này phải dụng tới VBA đúng không @n0thing1988 ? Hay kutool kutool gì có xử lý cái này được đúng không? Chứ xài công thức sao biết đường???!!!
A4=A3+IFERROR(COUNTIF(A$3:A3,A3)=ROUNDUP(LEN(SUBSTITUTE(VLOOKUP(A3,TongHop!$A$4:$F$8,4,),CHAR(10),REPT(1,999)))/999,),1)B4:C4=VLOOKUP($A4,TongHop!$A$4:$F$8,COLUMN(),)D4:F4=TRIM(MID(SUBSTITUTE(REPT(VLOOKUP($A4,TongHop!$A$4:$F$8,COLUMN(),)&CHAR(10),10),CHAR(10),REPT(" ",999)),COUNTIF($A$3:$A3,$A4)*999+1,999))Em thấy cái này dùng code VBA chạy cũng tiện lắm anh ơi, nhờ mấy anh giúp đỡ. Em xin cảm ơn.
Anh ơi, cái này mình có code VBA không anh.
Nếu bạn muốn code thì nói ngay từ đầu sẽ hay hơn.
Function SplitRow(ByVal aArr As Variant, ByVal lMainCol As Long, sDelemiter As String) As Variant
Dim i As Long, j As Long, ii As Long, k As Long, aResult As Variant, lCount As Long
aArr = aArr
For i = LBound(aArr, 1) To UBound(aArr, 1)
aArr(i, lMainCol) = Split(aArr(i, lMainCol), sDelemiter)
k = UBound(aArr(i, lMainCol), 1) - LBound(aArr(i, lMainCol), 1) + 1
lCount = lCount + k
For j = LBound(aArr, 2) To UBound(aArr, 2)
If j <> lMainCol Then
aArr(i, j) = Split(Replace(Space(k), " ", aArr(i, j) & sDelemiter), sDelemiter, k + 1)
End If
Next
Next
ReDim aResult(1 To lCount, LBound(aArr, 2) To UBound(aArr, 2))
k = 0
For i = LBound(aArr, 1) To UBound(aArr, 1)
For ii = LBound(aArr(i, lMainCol), 1) To UBound(aArr(i, lMainCol), 1)
k = k + 1
For j = LBound(aArr, 2) To UBound(aArr, 2)
aResult(k, j) = aArr(i, j)(ii)
Next
Next
Next
SplitRow = aResult
End Function
Sub Test()
Arr = SplitRow(Sheet1.[A4:F8].Value, 4, ChrW(10))
Sheet2.[A4].Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr
End SubDạ, em cảm ơn anh nhiều nha. Dữ liệu chạy rất mượt anh ơi.
Để viết được code thế này chắc anh phải là dân lập trình chuyên nghiệp lắm anh nhỉ, thấy code của mà em mê quá vừa đẹp mắt lại rất hiệu quả. Anh có phương pháp nào để em giống như anh được không nhỉ, thời buổi này mà không biết code Excel thì khó lắm đây.
Bạn chuẩn bị 1 con gà nướng và 3 cái bánh bao nhân ngọt để làm lễ ra mắt nhé. Thầy ưng bạn thì 7 ngày sau làm tiếp cái lễ bái sư (1 con heo sữa quay và 1 mâm ngũ quả là được).
Bạn chỉ giùm mình cách sử dụng cái hàm trên.
Cứ việc tới gần chỗ nhà mình. Chỉ cần một buổi uống cafe thì sẽ có thể viết code rần rần.
Mình có quay video lại nhưng không upload lên được nên gửi bạn đường link: https://drive.google.com/file/d/1LwKd5I0Z2g-wmcPjG5PCPGSunC83b4XP/view?usp=sharing
Đọc mục lục của anh là em biết anh lão làng rồi làm cho em cảm thấy học viết code Excel không phải là vấn đề nan giải nữa. Nhưng mà anh và em có khoảng cách về địa lý (em ở Quảng Nam) nên không sao hội ngộ để anh truyền thụ võ công được.
Mình không xem được. Bạn chỉ cho mình điền mấy 3 tham số trong cái hàm đó, số liệu như trong file ví dụ là được.
Và sau, 15 phút về nhà là trả lại cho thầy?
Sao không thấy phút nào về cách phân tích vấn đề, lượt thuật lô gic tuần tự, xếp thành giải thuật, và từ đó dịch những chi tiết thành code.
A ở chỗ nào vậy anh, để hằng sáng mời cafe anh và được học
Gửi anh hướng dẫn.
Gửi anh hướng dẫn.
Về vấn đề này, xin các tiền bối có thể chia sẻ cho hậu bối phương pháp học và cách tư duy như thế nào để viết code có hiệu quả hơn không nhỉ. Học được cái này rất có ích để ứng dụng cho thực tế.
tiền bối: có tiền mới có bửu bối
Gừng càng già càng cay. Đọc thơ của anh thật vừa thấm vừa hay.
Nhờ anh hướng dẫn chỗ này nên xử lý thế nào nhỉ.
Bạn ơi, cài hàm đó thì mình làm ok rồi. Vấn đề là không biết dùng cái hàm đó thôi; hàm có 3 tham số, mà chẳng biết điền như thế nào?
Cái này đâu càn nhập tham số gì đâu bạn, copy dữ liệu cần chuyền đổi vào Sheets "TongHop", bấm ALT + F11 lên và phím F5 (lưu ý là có sẵn code ở trong module). Sau đó, vào Sheets "KetQuaMongMuon" để kiểm tra kết quả.
Cú pháp
=SplitRow(aArr, lMainCol, sDelemiter)=SplitRow(A4:F8, 4, Char(10) )Chọn đại một ô nào đó, và gõ:
1/ Bạn Copy dữ liệu và Paste vào sheet TongHop rồi sang sheet KetQuaMongMuon nhấn nút để xem kết quả.
Em cảm ơn anh đã giúp đỡ, file chạy rất mượt mà.
Bạn ơi lMainCol có điều kiện gì không vậy. Có phải lmaincol phải nhỏ hơn tổng số cột trong vùng chọn không? Mình thay giá trị 4 bằng 7 thì bị lỗi. Giả sử sheet TongHop có nhiều dữ liệu mấy ngàn dòng mình phải xem cột nào có ký tự xuống dòng char(10) nhiều nhất để chọn cột đó làm lMainCol, có thể thêm vào code tự xác định lMainCol luôn được không?
Được voi đòi luôn 2 bà trưng. Mình không biết về VBA. Nhưng mình nghĩ cũng khó đó
Nếu anh ấy mà dậy thật. Tôi nghĩ nửa năm thuê trọ đến gần nhà anh để uống cofe là không uổng
