lỗi code vba

Em không rành VBA, đang cần tìm cách tách trắc nghiệm nên có chạy thử code của 1 bác trên diễn đàn mình nhưng không tách được như file mẫu của bác ấy. Nó báo lỗi 1004 "application defined object defined error" mà em không biết sửa sao. Mong mn giúp đỡ em ạ, em cảm ơn mọi người nhiều.

Em có 1 vấn đề không hiểu, 1 ngày đẹp trời em mở file lên dùng và biij lỗi như sau ạ. Em xin cả nhà giúp đỡ:

Mình đang tập tành tự học VBA có viết đoạn code sau mà cứ báo lỗi dòng "If cotB = 2 And HangB > 7 And BILL.Range("B" & temp).Value <> 0 And BILL.Range("F" & temp).Value <> 1 Then" mong mn giúp đỡ :< CODE: Dim temp As Long Dim HangB As Variant Private Sub Worksheet_SelectionChange(ByVal Target...

Nhờ mọi người vào modul3 rồi chạy thử giúp em

Sub lap() Dim a, b, c As Long Dim endrow As Long Dim kq1() endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row arr2 = Sheet2.Range("A1:O" & endrow).Value For c = 1 To 14 ReDim kq1(1 To UBound(arr2, 1) - c, 1 To UBound(arr2, 2) - c) For a = 1 To (UBound(arr2, 1) - 1) For b = 2 To UBound(arr2...