Mình có một vấn đề muốn tham khảo ý kiến mọi người:
Muốn dùng marco insert thêm hàng tại một số hàng định trước.VD như: tại hàng số 3 insert thêm 5 hàng, đến hàng số 13 lại insert thêm 5 hàng; cứ cách 10 hàng (hàng 23,33,43...,93) thì sẽ insert lại insert thêm 5 hàng nữa. CÔng việc này làm thủ công sẽ rất mất thời gian, mong mọi người chỉ giúp 1 code để làm.
Sub OB()
Application.ScreenUpdating = False
Dim i As Long, iR As Byte
For i = 94 To 4 Step -10
For iR = 1 To 5
Sheet1.Range("A" & i).EntireRow.Insert
Next
Next
Application.ScreenUpdating = True
End Sub
Option Explicit
Sub Insert5Rows()
Application.ScreenUpdating = False
Dim i As Long, iR As Byte
For i = 93 To 4 Step -10
Sheet3.Range("A" & i).Resize(5, 1).EntireRow.Insert
Next
Application.ScreenUpdating = True
End Sub
Cái này tôi nghĩ chỉ là tối ưu hóa vùng nhớ! (hay gì gì đó)
Bạn phải chuột vô thanh SheetNames & chọn dòng cuối của menu tắt & chép macro này vô CS VBE vừa xuất hiện
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [d1]) Is Nothing Then
Dim lRow As Long, Zw As Long, SDg As Long
Dim Cuoi, Rng As Range
SDg = [a65432].End(xlUp).Row - 1
If SDg = 0 Then Exit Sub
With Sheets("DL")
lRow = .[b65432].End(xlUp).Row
Cuoi = .Range("A" & .[a65432].End(xlUp).Row).Value
If Cuoi = Target Then
Range("A2:A" & SDg).Copy Destination:=.Cells(lRow + 1, 2)
Exit Sub
Else
1 Set Rng = .Columns("A:A").Find(Target + 1, LookIn:=xlValues)
If Rng Is Nothing Then
3 Exit Sub
Else
5 Rng.Resize(SDg, 1).EntireRow.Insert
Range("A2:A" & SDg + 1).Copy Destination:=Rng.Offset(-SDg, 1)
7 End If
End If
' For Zw = 2 To lRow'
' If .Cells(Zw, 1) = Target + 1 Then'
' .Cells(Zw, 1).Resize(SDg , 1).EntireRow.Insert'
' Range("A2:A" & SDg).Copy Destination:=.Cells(Zw, 2)'
' Exit For'
' End If'
' Next Zw'
End With
End If
End Sub
