tự động insert thêm dòng (1 người xem)

[viettuan49a]

em có bài toán bí quá
mong các anh chị giúp đỡ

 

[viettuan49a]

ai giúp tôi với
đang cần quá

 

[Hoàng Trọng Nghĩa]

Bạn thử nghiên cứu các bài trong topic này:

http://www.giaiphapexcel.com/forum/...ng-(Array)-để-chèn-dòng-và-công-thức-SubTotal

 

[Ba Tê]

Bạn thử nghiên cứu các bài trong topic này:

http://www.giaiphapexcel.com/forum/showthread.php?60170-Code-áp-dụng-mảng-(Array)-để-chèn-dòng-và-công-thức-SubTotal

Cái "Ông Hai" này hổng có cái gì chung để mà SubTotal cả, làm sao đây?
Đành phải tìm trong cột A cell nào có dữ liệu thì chèn thêm 1 dòng bên trên, rồi cộng từ trên xuống đến dòng trống thì ghi kết quả. Chờ các bạn khác có cách khác.

Private Sub CommandButton1_Click()
Dim nN As Long, iI As Long, Clls As Range, Tong1 As Double, Tong2 As Double
nN = [A10000].End(xlUp).Row
For iI = nN To 2 Step -1
If Range("A" & iI).Value <> "" Then Range("A" & iI).EntireRow.Insert
Next iI
   nN = [C10000].End(xlUp).Row + 1
   Range("A" & nN & ":D" & nN).Borders.LineStyle = xlContinuous
For iI = 1 To nN
    If Range("C" & iI) <> "" Then
        Tong1 = Tong1 + Range("C" & iI).Value
        Tong2 = Tong2 + Range("D" & iI).Value
    Else
        Range("A" & iI).Value = "Cong:"
        Range("C" & iI).Value = Tong1
        Range("D" & iI).Value = Tong2
        Tong1 = 0: Tong2 = 0
        Range("A" & iI & ":D" & iI).Font.Bold = True
    End If
Next iI
End Sub