Nguyên tắc khi thêm, xóa dòng, cột trong vòng lặp là phải duyệt ngược. Tức là từ dưới lên và từ phải qua trái.
. Nếu được bạn có thể cho mình cái vd nho nhỏ.
1. Mấu chốt của việc duyệt ngược chính là chỗ đó. Cho biến chạy từ cuối lên đầu với bước nhảy là -1Mình vẫn chưa hiểu code của bạn lắm. Hic, vừa học VBA tập tè mà
Trong code của bạn mình có 02 vấn đề như sau:
- "Nguyên tắc khi thêm, xóa dòng, cột trong vòng lặp là phải duyệt ngược": code của bạn duyệt từ dòng cuối cùng đến dòng đầu tiên và mấu chốt của duyệt ngược là phải -1 ở step?
- Trong code của bạn mình thấy có dùng mảng, và có phải là muốn duyệt ngược vòng lập là phải dùng mảng mới duyệt ngược được hả bạn? Mình không dùng mảng có duyệt ngược được hay không?
- Và cuối cùng là mình vẫn không hiểu tại sao phải duyệt ngược mà không duyệt xuôi
Mình hơi dốt nên
Sub Xoadong()
Dim kq(), dl, i, j, k
dl = Range([A2], [A65536].End(3)).Resize(, 6).Value
ReDim kq(1 To UBound(dl), 1 To 6)
For i = 1 To UBound(dl) - 1
If dl(i, 1) = dl(i + 1, 1) Then
k = k + 1
For j = 1 To 6
kq(k, j) = dl(i, j)
Next
End If
Next
Range([A2], [A65536].End(3)).Resize(, 6).ClearContents
[A2].Resize(k, 6) = kq
End SubSub themdong()
Dim kq(), dl, i, j, k
dl = Range([A2], [A65536].End(3)).Resize(, 6).Value
ReDim kq(1 To UBound(dl) * 2, 1 To 6)
For i = 1 To UBound(dl)
If i = UBound(dl) Then
For j = 1 To 6
kq(i + 1 + k, j) = dl(i, j)
Next
Exit For
End If
If dl(i, 1) = dl(i + 1, 1) Then
For j = 1 To 6
kq(i + k, j) = dl(i, j)
kq(i + k + 1, j) = dl(i + 1, j)
Next
Else
k = k + 1
For j = 1 To 6
kq(i + k, j) = dl(i, j)
Next
End If
Next
[A2].Resize(i + k + 1, 6) = kq
End SubSub Addrow()
Dim SttDong As Integer
Dim endR As Integer
Application.ScreenUpdating = False
SttDong = 0
endR = DT.[B1000].End(xlUp).Row
For SttDong = endR To 2 Step -1
If Range("B" & SttDong).Value <> Range("B" & SttDong).Offset(1, 0).Value Then
Range("A" & SttDong & ":" & "F" & SttDong).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FillDown
End If
Next
Application.ScreenUpdating = True
MsgBox "Da~ the^m do`ng xong"
End SubSub Delrow()
Dim SttDong As Integer
Dim endR As Integer
Application.ScreenUpdating = False
SttDong = 0
endR = DT.[B1000].End(xlUp).Row
For SttDong = endR To 2 Step -1
If Range("B" & SttDong).Value <> Range("B" & SttDong).Offset(-1, 0).Value Then
Range("A" & SttDong & ":" & "F" & SttDong).Select
Selection.Delete Shift:=xlUp
End If
Next
Application.ScreenUpdating = True
MsgBox "Da~ xo'a do`ng xong"
End SubSub Addrow_union()
Dim i As Integer
Dim Vung As Range
For i = 2 To [b1000].End(xlUp).Row
If Range("B" & i).Value <> Range("B" & i).Offset(-1, 0).Value Then
Vung = Union(Vung, Range("A" & i & ":" & "F" & i))
End If
Next
Vung.Select
''''''''''''
'code xoá hoặc thêm dòng
''''''''''''
End SubSub chen_them()
Dim cell, i
For Each cell In Range([a2], [a65536].End(3))
If cell.Offset(i) <> cell.Offset(i + 1) Then
cell.Offset(i + 1).Resize(, 6).Insert shift:=xlDown
cell.Offset(i).Resize(, 6).Copy cell.Offset(i + 1)
i = i + 1
End If
Next
End SubSub xoa_bot()
Dim cell as range
For Each cell In Range([a2], [a65536].End(3))
If cell <> cell.Offset(-1) Then cell.Resize(, 6).Delete shift:=xlUp
Next
End Sub
