Hiện em đang gặp vấn đề ngoài khả năng xử lý của em. Nên em gửi lên diễn đàn mong các thầy và các bạn trong diễn đàn giúp đỡ.
Vấn đề em trình bày trong file đính kèm. Rất mong các thầy và các bạn giúp đỡ. Xin chân thành cảm ơn!
Thấy chưa? Nếu dựa trên file trước viết code là tèo rồiem tính đưa 1 ít số liệu thôi, tại em thấy đưa vậy cũng đầy đủ hơn 1 số người khác rồi. anh muốn thì em đưa thêm số liệu nữa. mong anh xem giúp.
Sub Tinh()
Dim Sarr(), I, J, X
Sarr = Range([A7], [H65536].End(3).Offset(1, -7)).Resize(, 13).Value
For I = 1 To UBound(Sarr) - 1
If Sarr(I, 3) <> "" Then
Sarr(I, 12) = "=RC[-4]-RC[-3]"
Sarr(I, 13) = "=RC[-6]-RC[-5]"
If Sarr(I + 1, 3) = "" Then
Do
J = J + 1
Loop Until Sarr(I + J, 3) <> "" Or I + J = UBound(Sarr)
End If
If J Then
For X = 8 To 10
Sarr(I, X) = "=Sum(R[1]C:R[" & J - 1 & "]C)"
Next
End If
End If
J = 0
Next
[A7].Resize(I - 1, 13) = Sarr
End Sub
Đã nói là đơn giản mà.hay quá! được rồi anh. Nếu số liệu ít quá là tèo chỗ nào gị anh? a chỉ để nữa e rút kinh nghiệm.
Hay là bạn gởi cái file nào sau khi chạy code nó thành 12:00:00 AM lên coi, không nhìn thấy thì thua.mà sao khi bấm vào tính cột B nó hiện thành 12:0:0:AM hết vậy anh? em muốn cell nào có giá trị đó thì làm trống luôn được không anh?
Nó ở cái cột B đó, có những số 0.Hay là bạn gởi cái file nào sau khi chạy code nó thành 12:00:00 AM lên coi, không nhìn thấy thì thua.
Hay là bạn gởi cái file nào sau khi chạy code nó thành 12:00:00 AM lên coi, không nhìn thấy thì thua.
Dữ liệu không lần nào giống lần nào hénđây nè anh. ở cột B đó anh
Sub Tinh()
Dim Sarr(), I, J, X
Sarr = Range([A7], [H65536].End(3).Offset(1, -7)).Resize(, 13).Value
For I = 1 To UBound(Sarr) - 1
If Sarr(I, 3) <> "" Then
If Sarr(I, 2) = 0 Then Sarr(I, 2) = ""
Sarr(I, 12) = "=RC[-4]-RC[-3]"
Sarr(I, 13) = "=RC[-6]-RC[-5]"
If Sarr(I + 1, 3) = "" Then
Do
J = J + 1
Loop Until Sarr(I + J, 3) <> "" Or I + J = UBound(Sarr)
End If
If J Then
For X = 8 To 10
Sarr(I, X) = "=Sum(R[1]C:R[" & J - 1 & "]C)"
Next
End If
End If
J = 0
Next
[A7].Resize(I - 1, 13) = Sarr
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2