Giúp chèn dòng trong excel

[ngmcuongbl]

Em có 1 bảng dữ liệu excel, giờ em muốn dưới mỗi dòng chứa dữ liệu nó chèn thêm 3 (hoặc tùy ý) dòng trống, việc này làm bằng tay rất là lâu, nhờ các anh/chị giúp nhé

 

[Po_Pikachu]

File của bạn đâu?
Thân.

 

[ngmcuongbl]

Em muốn là dưới mỗi dòng ngày như vậy có thêm 3 hoặc tùy ý mình cho thêm dòng nữa, bẳng dữ liệu lớn quá nên em chép lên mẫu tạm như vậy nhé

 

[Po_Pikachu]

Sub chay()
On Error GoTo Loi
so = Application.InputBox("Nhap so dong can chen: ", Type:=1)
For i = [A1].SpecialCells(2).Rows.Count To 2 Step -1
    For j = 1 To so
        Rows(i).Insert Shift:=xlDown
    Next j
Next i
Loi:
End
End Sub

Bạn dùng code này là được rồi.
Thân.

 

[Hai Lúa Miền Tây]

Em muốn là dưới mỗi dòng ngày như vậy có thêm 3 hoặc tùy ý mình cho thêm dòng nữa, bẳng dữ liệu lớn quá nên em chép lên mẫu tạm như vậy nhé

Bạn có thể khai thác công cụ có sẵn là List để giải quyết bài toán này. Nó sẽ tự động chèn thêm 1 dòng mới và có luôn các hàm sum, count... ở cuối dòng.

 

[Po_Pikachu]

Em muốn là dưới mỗi dòng ngày như vậy có thêm 3 hoặc tùy ý mình cho thêm dòng nữa, bẳng dữ liệu lớn quá nên em chép lên mẫu tạm như vậy nhé

Sư huynh đọc chưa rõ đề bài rồi! hhi
Thân.

 

[ngmcuongbl]

Bạn ơi xem giúp lại cho mình đoạn code về chèn dòng nhé vì nếu có dòng dữ liệu đầy đủ nó mới thực hiện lệnh được còn nếu thiếu thì không được, mình có gởi kèm ví dụ file tam02 bạn xem nhé, làm sao nó chỉ dựa vào cột đầu teen mà chèn thôi.
Trong file tam03 mình muốn đánh số thự tự giống như vậy, dữ liệu của mình tương đối lớn và có những dòng cùng tên, các bạn giúp mình đánh số thứ tự mà những dòng cùng tên nó bỏ qua nhé