thầy ơi nhờ thầy kiểm tra giúp e dòng code gán giá trị 1 ô bằng công thức countif với ạ, các dòng lệnh ở trên đều đã chạy ổn rồi ạ
Sub Macro1()
'
' Macro1 Macro
Dim ws As Worksheet
Dim i As Integer
Dim j As Integer
Set ws = ActiveSheet
'find last row of column
i = ws.Range("A" & Rows.Count).End(xlUp).Row
MsgBox lastRow
Worksheets.Add(After:=Worksheets("sheet1")).Name = "GDV"
With Sheets("GDV")
.Range("A2:A" & i - 20).Value = Sheets("Sheet1").Range("I22:I" & i).Value
.Range("A1").Value = "GDV"
.Range("A1:A" & i).RemoveDuplicates Columns:=1, Header:=xlYes
End With
For j = 2 To i
Sheets("GDV).Range("B"&j).Formula = "=CountIf(Sheet1!Range("I22:I"&i), SheetGDV.Range("A"&j))"
Next j
End Sub