Mã:
Sub Tong() 'Tinh tong cho 2 gia tri tro len
Dim cend As Long, iCol As Long
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
i = 8
j = i
cend = Cells(6, Columns.Count).End(xlToLeft).Column
Do While Range("A" & i) <> ""
If Range("A" & i) <> Range("A" & (i + 1)) Then
Rows(i + 1).Insert
Range("A" & (i + 1)) = Range("A" & i).Value
For iCol = 2 To cend
Cells(i + 1, iCol).Formula = "=SUM(R" & j & "C:R" & i & "C)"
Next iCol
Range(Cells(i + 1, 1), Cells(i + 1, cend)).Font.Bold = True
Range(Cells(i + 1, 1), Cells(i + 1, cend)) = Range(Cells(i + 1, 1), Cells(i + 1, cend)).Value
With Range(Cells(i + 1, 1), Cells(i + 1, cend)).Select
Selection.Interior.Color = 65535
End With
i = i + 2
j = i
Else
i = i + 1
End If
Loop
Application.ScreenUpdating = True
End Sub
Mình có đoạn Code " lượm lặt về chỉnh theo ý mình" nhưng khả năng Code chưa có nên khi chạy Code thì không đúng theo ý, nhờ thành viên chỉnh dùm đoạn Code.
Đoạn Code của mình là khi thấy giữa 2 Acount khác nhau thì sẽ chèn thêm dòng và tính Sum ( hình 1) ---> giờ muốn chỉnh sửa lại là vẫn chèn thêm dòng và tính Sum nhưng nếu gặp 1 Acount thì không cần chèn thêm dòng, chỉ 2 Acount trở lên thì mới chèn thêm dòng va tính Sum , ( hình 2).
P/S: Do file này có thể demo nháp được nên mình không gửi đường link lấy file, các thành viên demo thử dùm nhé.
Bạn cần đăng nhập để thấy hình ảnh
Bạn cần đăng nhập để thấy hình ảnh
Xin cám ơn các thành viên