Giúp sửa Code

[NguyenNgocSon]

Sub mang()
Dim i, j, m, n As Double
Dim a As Range
Dim rg As Range
i = 1
' Ma tran gom m hang, n cot
Set rg = Range("AK")
 m = rg.Rows.Count
 n = rg.Columns.Count
For i = 1 To m
With rg
    If .Rows(i) = 1 Then
    Rows(i).Delete
End With
'Next a
Next i
End Sub

Em code trên lỗi! Mong các bạn tìm giúp. Em đã check mà chưa tìm ra ?

 

[sealand]

1/ Bạn dùng đoạn code này đã hiệu chỉnh Logic hơn này, hôm qua gió bão ầm trời không kiểm tra được hết

Sub Mang()
Dim i, Dg, Cot, Rg As Range
Set Rg = Range("AK")
Dg = Rg.Rows.Count
Cot = Rg.Columns.Count
For i = IIf(Dg > Cot, Dg, Cot) To 1 Step -1
If i <= Cot And WorksheetFunction.CountIf(Range("AK").Columns(i), "<>0") = 0 _
Then Range("AK").Columns(i).Delete
If i <= Dg And WorksheetFunction.CountIf(Range("AK").Rows(i), "<>0") = 0 _
Then Range("AK").Rows(i).Delete
Next
End Sub

2/ Bạn đừng lẫn lộn: Hàm If() là hàm bảng tính còn trong VBA thì chỉ có hàm IIf(), tên cúng cơm của nó là Immediate If. Trong VBA đừng lẫn cấu trúc điều khiển if và hàm IIf . Khi sử dụng có thể kết quả giống nhau nhưng cú pháp khác nhau:
Ví dụ: Lựa chọn nếu a=0 thì b=1, ngược lại b=2. Ta có:

+Cấu trúc if: If a=0 Then b=1 Else b=2

+Hàm IIf(): b=IIf(a=0,1,2)