Trần Thanh Sơn
Trần Thanh Sơn
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 221 lượt xem

Sub Macro8() Dim Dongcuoi_s As Long Dongcuoi_s = Sheets("Sheet1")Range("A" &

Sub Macro8()

    Dim Dongcuoi_s As Long

        Dongcuoi_s = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

        Range("A"&Dongcuoi_s+1:"E" & Dongcuoi_s + 1).Style = "Total"

End Sub

Xin hỏi, đoạn code trên sai chỗ nào ? tks Thầy

Thảo luận 1 câu trả lời
Lượt xem 221 lượt xem
Vỗ tay vỗ tay
Trần Thanh Sơn 09:06 - Jun 11, 2022

Công thức bạn sẽ như sau nhé

Option Explicit
Sub Macro8()
    Dim Dongcuoi_s As Long
        Dongcuoi_s = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
        Range("A" & Dongcuoi_s + 1 & ":E" & Dongcuoi_s + 1).Style = "Total"
End Sub

Phần nối Dongcuoi_s+1 cần nối : nữa nhé.

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông