Giúp tạo Macro thêm dòng

[ketoanlagi]

Mình cần tạo 1 Macro như sau :
Có bảng tình như sau :
A
1 71392
2 71392
3 16515
4 19767
5 71435
6 003522

Minh muốn thêm dòng bên dưới mỗi số hoá đơn, nếu A2=A1 thì ko thêm dòng dưới ô A1 mà thêm dưới ô A2.
Mong các bạn giúp mình đang cần quá vì bảng tính dài cần thêm rất nhiều dòng sau mỗi hoá đơn.
Cảm cơn các bác trước..

 

[vanhai]

Viec nay ban dat so thu tu roi sap xep lai la duoc ko can den Macro dau

 

[ketoanlagi]

Ý của mình là Insert Colum ở dưới mỗi số HĐ vì một số HĐ nó có niều mặt hàng nên có thể có nhiều dòng. không biết ý của bạn thế nào, bạn giải thích rõ hơn được ko?

 

[vanhai]

STT So hoa don
1 123
1 123
2 124
3 125
3 125
4 127
5 129
1
2
3
4
5

 

[vanhai]

Cot so TT cua dong so 2 ban ko phai go so ma ban lam cong thuc nhu sau : =IF(B3=B2,A2,A2+1), sau do copy xuong het du lieu cot so hoa don ( cot B)
Tao 1 cot so thu tu lien tuc tuong ung voi so luong cua so hoa don ( VD co 5 so chang han, lon hon cung duoc), noi tiep xuong phia duoc cot STT sau do ban sap xep lai theo cot STT la duoc.

 

[SA_DQ]

Thích thì chìu

Mình cần tạo 1 Macro như sau :
Minh muốn thêm dòng bên dưới mỗi số hoá đơn, nếu A2=A1 thì ko thêm dòng dưới ô A1 mà thêm dưới ô A2.
Mong các bạn giúp mình đang cần quá vì bảng tính dài cần thêm rất nhiều dòng sau mỗi hoá đơn.
Cảm ơn các bác trước..

Option Explicit
Sub AddRowForValues()
Dim lRow As Long
Sheet3.Select
lRow = [a65536].End(xlUp).Row + 1
Do
If lRow = 2 Then Exit Do
With Range("C" & lRow)
If .Offset(-2).Value = .Offset(-1) Then _
Rows(lRow & ":" & lRow).Insert Shift:=xlDown
End With
lRow = lRow - 1
Loop
End Sub

* Cột khảo sát đang là 'C'; thay đổi lại cho phù hợp với CSDL của bạn!​