code chèn dòng bảng tính với điều kiện (1 người xem)

[hanhth0692]

Nhờ các A/C viết dùm em đoạn code chèn dòng ở file đính kèm với nội dung như sau:
- Chèn thêm dòng trên dòng có chữ "cụm môn".
em xin cảm ơn sự quan tâm của các A/c.
em là thành viên mới của diễn đàn, nếu viết bài không đúng xin các A/c vui lòng bỏ qua, em là dân ngoại đạo nên không biết lập trình là gì mong các A/c giúp đỡ. vì em biết diễn đàn thông qua người bạn chỉ và nói trên diễn đàn có nhiều người hướng dẫn. rất mong được sự giúp đỡ và chỉ bảo của các A/c em xin chân thành cảm ơn.

 

[nghiaphuc]

Nhờ các A/C viết dùm em đoạn code chèn dòng ở file đính kèm với nội dung như sau:
- Chèn thêm dòng trên dòng có chữ "cụm môn".
em xin cảm ơn sự quan tâm của các A/c.
em là thành viên mới của diễn đàn, nếu viết bài không đúng xin các A/c vui lòng bỏ qua, em là dân ngoại đạo nên không biết lập trình là gì mong các A/c giúp đỡ. vì em biết diễn đàn thông qua người bạn chỉ và nói trên diễn đàn có nhiều người hướng dẫn. rất mong được sự giúp đỡ và chỉ bảo của các A/c em xin chân thành cảm ơn.

Bạn thử sử dụng code sau xem có đúng ý chưa nhé:
[GPECODE=vb]Sub ChenDong()
Dim Rng As Range, fRng As Long
Application.ScreenUpdating = False
Set Rng = [B:B].Find("C" & ChrW(7909) & "m môn ", , , xlPart)
fRng = Rng.Row + 1
Do
Rng.EntireRow.Insert
Set Rng = [B:B].FindNext(Rng)
Loop Until Rng.Row = fRng
Application.ScreenUpdating = True
End Sub[/GPECODE]

 

[hanhth0692]

cảm ơn bạn nhiều, đúng với ý mình rồi. nhờ bạn giải thích dùm đoạn code trên. xin cảm ơn sự quan tâm của bạn.