Xin giúp đỡ em vói:thêm dòng tự động và công thức tính

[cloud2342]

Em cần các anh chị giúp về việc thêm dòng tự động và 1 công thức tính 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 và 1 công thức tính 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

Ngày hôm qua bạn cũng đã hỏi câu tương tự nhưng không thấy bạn phản ứng khi có đáp án.

 

[cloud2342]

em xin lỗi anh quanghai1969.Sáng nay em đã đọc đáp an của anh và làm được văn bản rồi.Em còn cái văn bản này mong anh giúp cho về phần công thức được không anh

 

[Quang_Hải]

Em cần các anh chị giúp về việc thêm dòng tự động và 1 công thức tính 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

Xem file coi đúng ý chưa

Sub chendong()
On Error Resume Next
Dim dulieu, kq()
Dim dong, cot, i, j, a
dulieu = Range([a4], [a65536].End(3)).Resize(, 4).Value
ReDim kq(1 To UBound(dulieu) * 10, 1 To 4)
For dong = 1 To UBound(dulieu) * 10 Step 10
    j = j + 1
    For cot = 1 To 2
      kq(dong, cot) = dulieu(j, cot)
    Next
    a = Round((dulieu(j + 1, 2) - dulieu(j, 2)) / 10, 1)
    For i = 2 To 10
      kq(dong + i - 1, 2) = kq(dong + i - 2, 2) + a
      kq(dong + i - 1, 3) = a
      kq(dong + 9, 4) = kq(dong + 9, 2) + kq(dong + 9, 3)
    Next
Next
[a4].Resize(dong - 1, 4) = kq
End Sub

 

[cloud2342]

Em làm được rồi,Cảm ơn anh quanghai rất nhiều.Nhờ có file này của anh mà em đỡ thức khuya mấy đêm.Làm xong 10 bể là ngu được rồi.thank anh và diễn dàn rất nhiều

 

[ChanhTQ@]

(/ì iêu cầu là điền công thức, nên mình thử làm cách điền công thức đây.

Bạn xem & kiểm dùm nha.

Các chú í:

(*) Chỉ mới thử tính cho 1 số nhóm gọi là thôi; Bạn kiểm xem đúng hết trong các nhóm đó chưa nghe;

Muốn có số liệu cho toàn bộ CSDL thì ta sang Trang tính bên & chép 2 cột [A:B] sang & chạy lần lượt 2 macro
(+) Cái đầu là của 2uangHai (Xin cảm ơn nhà mi nha!)

(+) Chạy macro Group

(*) Thật ra mình làm để kiểm khả năng thôi, chứ mình cũng đoán là bạn không cần áp công thức tính đâu; & nó sẽ làm lề mề thêm mà thôi!