Em cần giúp đỡ:tự động thêm dòng trong văn bản EXCEL

[cloud2342]

Em cần các anh chị giúp về việc thêm dòng tự động trong van bản excel.Em đính kèm văn bản có yêu cầu mong được các pro giúp càng sớm càng tôt.Cảm ơn mọi người

 

[Quang_Hải]

Em cần các anh chị giúp về việc thêm dòng tự động trong van bản excel.Em đính kèm văn bản có yêu cầu mong được các pro giúp càng sớm càng tôt.Cảm ơn mọi người

Bạn xem file đính kèm. Cách này là học của anh NDU, đem lên mảng tính toán xong rồi đập xuống bảng tính 1 phát mới đã

Sub chendong()
Dim dulieu, kq()
Dim dong, cot, i, j, k
dulieu = Range([a3], [a65536].End(3)).Resize(, 8).Value
ReDim kq(1 To UBound(dulieu) * 10, 1 To 8)
For dong = 1 To UBound(dulieu) * 10 Step 10
    j = j + 1
    For cot = 1 To 8
      kq(dong, cot) = dulieu(j, cot)
    Next
    For i = 1 To 9
      kq(dong + i, 1) = kq(dong, 1) & "." & i
    Next
Next
[a3].Resize(dong - 1, 8) = kq
End Sub

 

[ChanhTQ@]

/(/goài ra bạn có thể đến đây, tạm như bài tổng quan về thêm dòng

http://www.danketoan.com/forum/exce...oi-vo-1-csdl-co-so-du-lieu-da-san.182915.html