Chèn dòng Sum theo điều kiện

[genius111]

Chào cả nhà, em có bài toán này nhờ cả nhà giúp em với
Em có 1 bảng tính có cột B gồm các hàng có ký tự đầu từ 0 đến n (ví dụ hàng có ký tự đầu là 0 sẽ có cả chục dòng, ký tự 1 đến n cũng như vậy)
Bài toán là cứ đến dòng cuối cùng của 1 ký tự sẽ chèn thêm 1 dòng và đưa hàm sum vào để tính tổng các cột bên cạnh nó). Bảng tính của em có cả nghìn dòng nên làm tay cực quá, em có diễn giải chi tiết yêu cầu trong file, cả nhà xem giúp em với, em cảm ơn!

 

[genius111]

Ai giúp em với ạ

 

[PacificPR]

Chào cả nhà, em có bài toán này nhờ cả nhà giúp em với
Em có 1 bảng tính có cột B gồm các hàng có ký tự đầu từ 0 đến n (ví dụ hàng có ký tự đầu là 0 sẽ có cả chục dòng, ký tự 1 đến n cũng như vậy)
Bài toán là cứ đến dòng cuối cùng của 1 ký tự sẽ chèn thêm 1 dòng và đưa hàm sum vào để tính tổng các cột bên cạnh nó). Bảng tính của em có cả nghìn dòng nên làm tay cực quá, em có diễn giải chi tiết yêu cầu trong file, cả nhà xem giúp em với, em cảm ơn!

Bạn xem thử file

 

[genius111]

Bạn xem thử file

bác hiểu nhầm ý em rùi, ý em là ở cái bảng đầu tiên excel sẽ tự chèn thêm dòng và đưa công thức sum vào giống như bảng bên cạnh, chứ không phải là chuyển dữ liệu từ bảng 1 sang bảng 2

 

[giaiphap]

bác hiểu nhầm ý em rùi, ý em là ở cái bảng đầu tiên excel sẽ tự chèn thêm dòng và đưa công thức sum vào giống như bảng bên cạnh, chứ không phải là chuyển dữ liệu từ bảng 1 sang bảng 2

Không biết có phải vầy không?

 

[genius111]

Không biết có phải vầy không?

hi đúng ý em quá rồi, em cảm ơn bác nhiều nhiều ạ
nhưng bác giải thích giúp em ở mấy đoạn code này em không hiểu:
Tmp1 = Split(sArr(i, 1), "-")
If i < UBound(sArr) Then
Tmp2 = Split(sArr(i + 1, 1), "-")
Else
Tmp2 = Split("Het-roi", "_")
End If
If Tmp1(0) <> Tmp2(0) Then

nhất là cái đoạn Split("Het-roi")
em cảm ơn!

 

[giaiphap]

hi đúng ý em quá rồi, em cảm ơn bác nhiều nhiều ạ
nhưng bác giải thích giúp em ở mấy đoạn code này em không hiểu:
Tmp1 = Split(sArr(i, 1), "-")
If i < UBound(sArr) Then
Tmp2 = Split(sArr(i + 1, 1), "-")
Else
Tmp2 = Split("Het-roi", "_")
End If
If Tmp1(0) <> Tmp2(0) Then

nhất là cái đoạn Split("Het-roi")
em cảm ơn!

Cái này tôi chỉ sửa code của bạn @PacificPR thôi, vì vậy bạn nên nhờ @PacificPR giải thích hộ đi. Tôi dốt vụ giải thích này lắm.

 

[genius111]

Cái này tôi chỉ sửa code của bạn @PacificPR thôi, vì vậy bạn nên nhờ @PacificPR giải thích hộ đi. Tôi dốt vụ giải thích này lắm.

dạ vâng T.T

 

[genius111]

Bạn xem thử file

bác PcificPR ơi, bác giải thích đoạn code này giúp em được không ạ

Tmp1 = Split(sArr(i, 1), "-")
If i < UBound(sArr) Then
Tmp2 = Split(sArr(i + 1, 1), "-")
Else
Tmp2 = Split("Het-roi", "_")
End If
If Tmp1(0) <> Tmp2(0)

 

[phulien1902]

Chào cả nhà, em có bài toán này nhờ cả nhà giúp em với
Em có 1 bảng tính có cột B gồm các hàng có ký tự đầu từ 0 đến n (ví dụ hàng có ký tự đầu là 0 sẽ có cả chục dòng, ký tự 1 đến n cũng như vậy)
Bài toán là cứ đến dòng cuối cùng của 1 ký tự sẽ chèn thêm 1 dòng và đưa hàm sum vào để tính tổng các cột bên cạnh nó). Bảng tính của em có cả nghìn dòng nên làm tay cực quá, em có diễn giải chi tiết yêu cầu trong file, cả nhà xem giúp em với, em cảm ơn!

Bạn tham khảo:

Sub abc()
    Dim LR As Long, i, j, r
    LR = Cells(Rows.Count, "B").End(xlUp).Row
    For i = LR To 7 Step -1
        If Cells(i, "C").Value Like "*" & "C15" Then
            Rows(i + 1).Resize(1).Insert
            Cells(i + 1, 2) = "T" & ChrW(7893) & "ng"
            Cells(i + 1, 2).Font.Bold = True
        End If
    Next i
    With Sheets(1)
        For j = 4 To 11
            For Each r In .Columns(j).SpecialCells(2).Areas
                With r(r.Count + 1)
                    .Formula = "=sum(" & r.Address & ")"
                    .Font.Bold = True
                End With
            Next
        Next
    End With
End Sub

 

[genius111]

Bạn tham khảo:

Sub abc()
    Dim LR As Long, i, j, r
    LR = Cells(Rows.Count, "B").End(xlUp).Row
    For i = LR To 7 Step -1
        If Cells(i, "C").Value Like "*" & "C15" Then
            Rows(i + 1).Resize(1).Insert
            Cells(i + 1, 2) = "T" & ChrW(7893) & "ng"
            Cells(i + 1, 2).Font.Bold = True
        End If
    Next i
    With Sheets(1)
        For j = 4 To 11
            For Each r In .Columns(j).SpecialCells(2).Areas
                With r(r.Count + 1)
                    .Formula = "=sum(" & r.Address & ")"
                    .Font.Bold = True
                End With
            Next
        Next
    End With
End Sub

em cảm ơn ạ, cách này tốc độ chậm đi 1 xíu nhưng được cái dễ hiểu hơn. hihi

 

[PacificPR]

bác PcificPR ơi, bác giải thích đoạn code này giúp em được không ạ

Tmp1 = Split(sArr(i, 1), "-")
If i < UBound(sArr) Then
Tmp2 = Split(sArr(i + 1, 1), "-")
Else
Tmp2 = Split("Het-roi", "_")
End If
If Tmp1(0) <> Tmp2(0)

"Het-roi" có nghĩa là Hết rồi ( Không còn nữa)
Tmp2 = Split("Het-roi", "_") Khi đó Tmp2(0)="Het" khác với Tmp1(0)

 

[genius111]

"Het-roi" có nghĩa là Hết rồi ( Không còn nữa)
Tmp2 = Split("Het-roi", "_") Khi đó Tmp2(0)="Het" khác với Tmp1(0)

ôi thật là cao siêu hihi

 

[genius111]

Không biết có phải vầy không?

Bác ơi em làm phiền bác chút xíu, chạy code trên bị 1 cái đó là tất cả các công thức cũ của bàng tính bị chuyển về dán value hết, bác sửa code giúp em để khi chạy code xong các công thức cũ vẫn không thay đổi được không ạ, em cảm ơn

 

[giaiphap]

Bác ơi em làm phiền bác chút xíu, chạy code trên bị 1 cái đó là tất cả các công thức cũ của bàng tính bị chuyển về dán value hết, bác sửa code giúp em để khi chạy code xong các công thức cũ vẫn không thay đổi được không ạ, em cảm ơn

Bạn xem code ở #10 rất hay và đúng với mục đích của bạn.

 

[genius111]

Bạn xem code ở #10 rất hay và đúng với mục đích của bạn.

vâng em cảm ơn bác