giúp em chèn thêm hàng tự động trong excel, 5 hàng một (1 người xem)

[vuanhmy123]

chào mọi người, em đang lập bảng tính có rất nhiều hàng, tầm hơn 2000 hàng (row)
giờ e muốn chèn tự động cứ xuống 1 hàng là insert thêm 5 hàng nữa.
nếu làm thủ công bình thường thì rất lâu. phải insert từng hàng một.
ví dụ e có 10 hàng chẳng hạn. em muốn chèn tự động, cứ giữa hàng 1 và hàng 2 chèn thêm vào ở giữa 5 hàng nữa
hàng 2 và 3 cũng chèn thêm 5 hàng nữa.
.....
em có rất nhiều hàng cần phải làm như vậy, mọi người có hàm công thức hay code nào ko ? giúp em với
hình minh họa.

 

[vuanhmy123]

vừa lên mạng search thì thấy có bài viết này cũng ok, nhưng chỉ tự động insert 1 hàng. mình muốn insert thêm 5 hàng ko biết làm thế nào
http://vforum.vn/diendan/showthread.php?57762-Huong-dan-cach-chen-dong-trong-xen-ke-vao-Excel

 

[vuanhmy123]

code nó đây, nhưng chỉ có chèn đc 1 hàng
Sub InsertBlackRows()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.Count
xCols = WorkRng.Columns.Count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select
Do Until Selection.Row = FirstRow
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(-1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

 

[HungQuoc49]

chào mọi người, em đang lập bảng tính có rất nhiều hàng, tầm hơn 2000 hàng (row)
giờ e muốn chèn tự động cứ xuống 1 hàng là insert thêm 5 hàng nữa.
nếu làm thủ công bình thường thì rất lâu. phải insert từng hàng một.
ví dụ e có 10 hàng chẳng hạn. em muốn chèn tự động, cứ giữa hàng 1 và hàng 2 chèn thêm vào ở giữa 5 hàng nữa
hàng 2 và 3 cũng chèn thêm 5 hàng nữa.
.....
em có rất nhiều hàng cần phải làm như vậy, mọi người có hàm công thức hay code nào ko ? giúp em với
hình minh họa.

Public Sub Chen5Dong()
Dim i As Long

With ActiveSheet
For i = .Range("A1000000").End(xlUp).Row To 2 Step -1
If .Range("A" & i - 1) <> "" And .Range("A" & i) <> "" Then
.Range("A" & i & ":A" & i + 4).EntireRow.Insert
End If
Next i
End With

End Sub

 

[vuanhmy123]

Public Sub Chen5Dong()
Dim i As Long

With ActiveSheet
For i = .Range("A1000000").End(xlUp).Row To 2 Step -1
If .Range("A" & i - 1) <> "" And .Range("A" & i) <> "" Then
.Range("A" & i & ":A" & i + 4).EntireRow.Insert
End If
Next i
End With

End Sub

cảm ơn a rất nhiều, a ơi cho em hỏi, mình như code này là tự động insert cho toàn bộ bảng tính à. có thế chọn khoanh vùng mình muốn chèn được không ạ ?

 

[HungQuoc49]

cảm ơn a rất nhiều, a ơi cho em hỏi, mình như code này là tự động insert cho toàn bộ bảng tính à. có thế chọn khoanh vùng mình muốn chèn được không ạ ?

sửa

.Range("A" & i & ":A" & i + 4).EntireRow.Insert

--->

.Range("A" & i & ":C" & i + 4).Insert shift:=xlDown

Với vùng cần chèn từ cột A - C