Hihi cảm ơn bạn nhiều, cái A, B.... Là công thức sau này mình sẽ chèn vào, bạn có thể giúp mình lần nữa
Cũng không biết là có lần sau nữa không vì lúc đó có thể mình lại bận rồi. Nhưng bạn yên tâm sẽ có các thành viên khác trong GPE hỗ trợ bạn. Với điều kiện là bạn làm họ hiểu được điều bạn muốn
Ý là nhờ bạn chỉnh lại code trên giúp mình với hehe có các thành phần A1, B1... như vậy sau này mình áp dụng vào công việc của mình, thay A1 bằng hàm gì đó chẳng hạnCũng không biết là có lần sau nữa không vì lúc đó có thể mình lại bận rồi. Nhưng bạn yên tâm sẽ có các thành viên khác trong GPE hỗ trợ bạn. Với điều kiện là bạn làm họ hiểu được điều bạn muốn
Dim key As String
arr = Sheets("SL").[b6:b1000]
For i = 1 To 10000
If arr(i, 1) = "" Then Exit For
key = Mid(arr(i, 1), 1, 1)
Select Case key
Case "L"
j = j + 1
arrL(j, 1) = j
arrL(j, 2) = arr(i, 1)
Case "K"
m = m + 1
arrK(m, 1) = m
arrK(m, 2) = arr(i, 1)
Case "T"
n = n + 1
arrT(n, 1) = n
arrT(n, 2) = arr(i, 1)
End Select
Next
With Sheets("Lop")
.[a6:b10000].ClearContents
If j Then .[a6].Resize(j, 2) = arrL
End With
With Sheets("Khoi")
.[a6:b10000].ClearContents
If m Then .[a6].Resize(m, 2) = arrK
End With
With Sheets("Truong")
.[a6:b10000].ClearContents
If n Then .[a6].Resize(n, 2) = arrT
End With
End Subchạy báo lỗi bạn ơi!
Nếu bạn thực sự quan tâm đến việc trau dồi kiến thức thì GPE đúng là nơi bạn có thể học hỏi được nhiều điều đó. Tuy nhiên, GPE có nét văn hóa riêng; đó là yêu cầu các thành viên mới phải học cách đặt tiêu đề, cách đặt câu hỏi (Tiên học lễ, hậu học văn). Về cái này bạn đọc lại nội quy và tham khảo các bài viết nhận được nhiều trợ giúp là sẽ hiểu.Cảm ơn bạn nhiều nhé, kiến thức thật là vô tận bạn nhở
Góp ý cho bạn:
Thì thực sự không hiểu bạn đang muốn gì???
Thôi nhé, chào bạnhehe bạn khó tính quá, k biết mới học thôiMình làm y chang ra cái ban đầu ban đăng lên. Còn bạn viết thế này
Thì thực sự không hiểu bạn đang muốn gì???
Mình xin mượn 1 câu châm ngôn của các anh, chị trên GPE: Bạn hãy học cách viết để người khác hiểu, đừng viết cái chỉ mình bạn hiểu
Góp ý cho bạn:hehe bạn khó tính quá, k biết mới học thôi
Ý mình là như file kèm theo thôi
Cảm ơn bạn góp ý, cái này mình đang học chứ k phải nhờ diễn đàn giúp file cụ thể nên k có file gửi lên
Học hay thử nghiệm thì cũng phải cụ thể, rõ ràng muốn làm cái gì ở sheet nào, muốn tách cái gì ở cột nào thì phải cụ thể mỗi lần tách là 1 loại.
ok để tui xin lổi nó.........heheheCảm ơn bạn nhiều nhé, kiến thức thật là vô tận bạn nhở
Bài đã được tự động gộp:
chạy báo lỗi bạn ơi!
Muốn học hay tham khảo thì xem thử File trong bài viết sau:
