Tự Insert theo điều kiện

[NoDiNaDu]

Xin chào mọi người, chúc mọi người một ngày tốt lành ạ.
Hiện em có một bảng dữ liệu mà muốn nó tự động thêm dòng với điều kiện như sau :
"Trong chuỗi dữ liệu ở cột A, nếu nhận giá trị bằng 1 ở 1 ô bất kỳ, thì liền trước nó tự động thêm 1 dòng trắng ( 1 dòng trắng chứ không phải 1 ô trắng ạ)". Ví dụ: Ô A1-A5 có A3,A5 có giá trị bằng 1, thì khi thêm dòng cấu trúc của bảng sẽ là: dòng 1; dòng 2; dòng trắng ; dòng 4 (mà trước đó là dòng 3); dòng 5; dòng trắng; dòng 7 (mà trước đó ở dòng 5).em mô tả hơi khó hiểu, nên gửi kèm file ở đây, xin mọi người giúp đỡ. Em xin cảm ơn ạ.

 

[phulien1902]

Xin chào mọi người, chúc mọi người một ngày tốt lành ạ.
Hiện em có một bảng dữ liệu mà muốn nó tự động thêm dòng với điều kiện như sau :
"Trong chuỗi dữ liệu ở cột A, nếu nhận giá trị bằng 1 ở 1 ô bất kỳ, thì liền trước nó tự động thêm 1 dòng trắng ( 1 dòng trắng chứ không phải 1 ô trắng ạ)". Ví dụ: Ô A1-A5 có A3,A5 có giá trị bằng 1, thì khi thêm dòng cấu trúc của bảng sẽ là: dòng 1; dòng 2; dòng trắng ; dòng 4 (mà trước đó là dòng 3); dòng 5; dòng trắng; dòng 7 (mà trước đó ở dòng 5).em mô tả hơi khó hiểu, nên gửi kèm file ở đây, xin mọi người giúp đỡ. Em xin cảm ơn ạ.

Bạn thử:

Sub Insert_Rows()
    Dim LR&, i&
    Application.ScreenUpdating = False
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 4 Step -1
        If Range("A" & i).Value = 1 Then
            Rows(i).Insert
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox " Xin dung bam em lan nua!"
End Sub

 

[NoDiNaDu]

Bạn thử:

Sub Insert_Rows()
    Dim LR&, i&
    Application.ScreenUpdating = False
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 4 Step -1
        If Range("A" & i).Value = 1 Then
            Rows(i).Insert
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox " Xin dung bam em lan nua!"
End Sub

Dạ, em cảm ơn thầy ạ