Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("B2:B1000"), Target) Is Nothing Then
Rows(Target.Row).Insert Shift:=xlDown
End If
Application.EnableEvents = True
End Sub
Nếu em cần khi cột A xuất hiện kí tự bất kỳ (Ví dụ 1, 2, 3, 4 chẳng hạn) thì Excel mỗi khi kích hoạt VBA sẽ tự động chèn một dòng (lên trên) các ô đó.
Cảm ơn anh, nhưng ý của em là khi thực hiện VBA thì tất cả các ô tại cột A chứa dữ liệu sẽ được chèn cùng một lúc (Code ở trên em hiểu là thực hiện cho từng lần được một dòng tức nháy đúp vào ô A2 có dữ liệu chẳng hạn thì sẽ có một dòng chèn trên ô A2). Ý của em là chèn được nhiều dòng một lúc anh ạh. Cám ơn anh rất nhiều đã giúp em rất nhiều để em có thể tìm hiểu khi làm công tác giá xây dựng.
Vầy thì đâu cần gì dùng VBA. Quét chọn cột STT của bạn.
Ồ cách hay như vậy mà em không biết. Em vẫn thắc mắc không biết sinh ra Entire Row để là gì. Trong khi trước kia khi chèn dòng em cứ chọn cả Row rồi Ctr++. Cảm ơn các anh nhiều.
