VBA Chèn số dòng tương ứng (1 người xem)

[bbq1401]

Gửi anh Chị Giải pháp excel

Em muốn chèn tự động số dòng tương ứng theo số lượng ( Số lượng dòng cần chèn có thể thay đổi).


Anh chị giúp em với.

 

[SA_DQ]

Trong khi chờ đợi, bạn có thể xem 1 bài gần như tổng quan về vấn đề này tại:
http://www.danketoan.com/forum/exce...oi-vo-1-csdl-co-so-du-lieu-da-san.182915.html

 

[hungpecc1]

Gửi anh Chị Giải pháp excel

Em muốn chèn tự động số dòng tương ứng theo số lượng ( Số lượng dòng cần chèn có thể thay đổi).


Anh chị giúp em với.

vừa ngủ trưa dậy,đg mơ mơ màng màng, viết nhanh 1 đoạn , không biết có đúng không
[GPECODE=vb]
Sub GPE()
Dim Arr, TmpArr, Item, tmp, iR As Long, i As Long
Arr = [C23]
For i = 1 To UBound(Arr, 1)
tmp = CStr(Trim(Arr(i, 1)))
If Len(tmp) Then
For Each Item In [A1:A25]
iR = iR + 1
If CStr(Trim(Item)) Like tmp Then
Range("A" & iR + 1).Resize(CLng(Arr(i, 2))).Insert xlDown
End If
Next
iR = 0
End If
Next
End Sub
[/GPECODE]