Chèn dòng có điều kiện (1 người xem)

[AnhThu-1976]

Các Thầy , Cô, Anh, Chị & các bạn giúp em code chèn dòng như sau:
Khi em tô đen vùng dữ liệu từ ô B9:B17 (ở sheet1) thì chạy code và code chèn thêm 3 hàng phía dưới sau mỗi ngày
Em muốn sau khi chạy code thì sẽ có kết quả như ở sheet KetQua
(Mục đích chọn vùng dữ liệu, vì chỉ muốn chèn hàng ở những chỗ cần thiết)
Em cảm ơn!

 

[giaiphap]

Bạn xem file đúng chưa.

 

[AnhThu-1976]

Bạn xem file đúng chưa.

Dúng rồi, cảm ơn bạn nhiều

 

[phulien1902]

Các Thầy , Cô, Anh, Chị & các bạn giúp em code chèn dòng như sau:
Khi em tô đen vùng dữ liệu từ ô B9:B17 (ở sheet1) thì chạy code và code chèn thêm 3 hàng phía dưới sau mỗi ngày
Em muốn sau khi chạy code thì sẽ có kết quả như ở sheet KetQua
(Mục đích chọn vùng dữ liệu, vì chỉ muốn chèn hàng ở những chỗ cần thiết)
Em cảm ơn!

Bạn tham khảo:

Sub abc()
    Dim i&, Rng As Range
    On Error Resume Next
    Set Rng = Application.Selection
    Set Rng = Application.InputBox("Xin moi chon vung du lieu", "Thong bao!", , Type:=8)
    Application.ScreenUpdating = False
    For i = Rng.Rows.Count + 1 To 2 Step -1
        If Rng.Cells(i, 1).Value <> Rng.Cells(i - 1, 1).Value Then
            Rng.Cells(i, 1).Resize(3).EntireRow.Insert
        End If
    Next
    ActiveSheet.Range("A9").Select
    Application.ScreenUpdating = True
End Sub

 

[AnhThu-1976]

Bạn tham khảo:

Sub abc()
    Dim i&, Rng As Range
    On Error Resume Next
    Set Rng = Application.Selection
    Set Rng = Application.InputBox("Xin moi chon vung du lieu", "Thong bao!", , Type:=8)
    Application.ScreenUpdating = False
    For i = Rng.Rows.Count + 1 To 2 Step -1
        If Rng.Cells(i, 1).Value <> Rng.Cells(i - 1, 1).Value Then
            Rng.Cells(i, 1).Resize(3).EntireRow.Insert
        End If
    Next
    ActiveSheet.Range("A9").Select
    Application.ScreenUpdating = True
End Sub

Cảm ơn bạn đã giúp đỡ

 

[AnhThu-1976]

Bạn phulien1902 và các bạn cho tôi hỏi thêm:
Bây giờ tôi không muốn chèn dòng ở bên dưới, mà muốn chèn dòng ở bên trên củ những ô đã chọn thì sửa code ntn
Ví dụ : tôi chọn dòng thứ 5, thì 3 dòng trống sẽ được chèn là dòng thứ 2+3+4
Cảm ơn các bạn!

 

[phulien1902]

Bạn phulien1902 và các bạn cho tôi hỏi thêm:
Bây giờ tôi không muốn chèn dòng ở bên dưới, mà muốn chèn dòng ở bên trên củ những ô đã chọn thì sửa code ntn
Ví dụ : tôi chọn dòng thứ 5, thì 3 dòng trống sẽ được chèn là dòng thứ 2+3+4
Cảm ơn các bạn!

Bạn chỉ cần quét chọn vùng dữ liệu B6:B8, nhấn nút OK là xong.

 

[AnhThu-1976]

Bạn chỉ cần quét chọn vùng dữ liệu B6:B8, nhấn nút OK là xong.

Cám ơn bạn, nghĩa là khi chọn vùng dữ liệu, phía trên ta chọn thêm 1 ô (hoặc 1 số ô), phía dưới ta bỏ bớt 1 ô (hoặc 1 số ô)