Ý của bạn là chèn giữa tất cả các cặp STT liền kề 4 dòng nữa, nghĩa là sau mỗi số thứ tự sẽ là 4 dòng trống hay chỉ chèn thêm 4 dòng trống vào 1 vị trí xác định nào đó? Nếu là chèn giữa tất cả các cặp STT liền kề 4 dòng trống thì bạn có thể sử dụng code sau:mình có một bảng xls, có stt từ 1-100 chẳng hạn, giờ mình muốn chèn vào giữa khoảng cách các số đó là 4 dòng nữa, làm thủ công thì rất lâu, nhờ các sư phụ chỉ giáo giúp!
nhân tiện anh em có cách nào chuyển được cái font chữ trong file đính kèm k?
thank!
Sub ChenDong()
Dim i As Long, MaxR As Long
MaxR = 5 * [A1000].End(xlUp).Row - 4
For i = 3 To MaxR Step 5
Rows(i).Resize(4).Insert
Next i
End Sub
Trong file đính kèm của mình, bạn nhấn Alt+F8, sẽ thấy 1 Macro tên là ChenDong, bạn cứ nhấn Enter là code sẽ chạy.cám ơn bạn, nhưng sao mình k thực hiện được, chắc do mình yếu quá, bạn có thể hướng dẫn mình cách chèn dòng cụ thể hơn được k?