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

  • Thread starter ketoanlagi
  • Ngày gửi
K

ketoanlagi

Thành viên sơ cấp
16/11/06
23
0
0
TP.HCM
#1
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..
 
V

vanhai

Thành viên thân thiết
18/8/05
56
0
6
40
HCM Cty
#2
Viec nay ban dat so thu tu roi sap xep lai la duoc ko can den Macro dau
 
K

ketoanlagi

Thành viên sơ cấp
16/11/06
23
0
0
TP.HCM
#3
Ý 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?
 
V

vanhai

Thành viên thân thiết
18/8/05
56
0
6
40
HCM Cty
#4
STT So hoa don
1 123
1 123
2 124
3 125
3 125
4 127
5 129
1
2
3
4
5
 
V

vanhai

Thành viên thân thiết
18/8/05
56
0
6
40
HCM Cty
#5
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.
 
S

SA_DQ

Thành viên thân thiết
29/6/05
435
38
28
61
HCM city
#6
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!​
proxy.php?image=http%3A%2F%2Fi255.photobucket.com%2Falbums%2Fhh133%2FSaDQ1947%2FHoa%2FNhai.jpg&hash=db5190c45d632981e4ba844e758899c0
 

Thành viên trực tuyến

  • xediengiatot

Xem nhiều