Mai Lan
Mai Lan
Thảo luận 4 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 364 lượt xem

kiểm tra giúp e dòng code gán giá trị 1 ô bằng ng thức countif các dòng lệnh

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
Thảo luận 4 câu trả lời
Lượt xem 364 lượt xem
Vỗ tay vỗ tay
Mai Lan 15:08 - Aug 06, 2020
Chào bạn, bạn đẩy file lên nhé.
Vỗ tay vỗ tay
Mai Lan 09:08 - Aug 07, 2020
ở dòng này
Sheets("GDV).Range("B"&j).Formula =CountIf(Sheet1!Range("I22:I"&i), SheetGDV.Range("A"&j))
Bạn chú ý như sau:
1. Nếu viết dạng gán công thức vào dòng j cột B thì sử dụng thuộc tính .formula như sau:
Sheets("GDV").Range("B2").Formula = "=CountIf(Sheet1!I2:I22, GDV!A2)"
Sheets("GDV").Range("B2:B" & i).Filldown
Tức là gán công thức vào ô đầu tiên, sau đó filldown tới dòng cuối cùng (không chạy trong vòng lặp)
khi viết công thức bạn viết giống như khi viết trên excel (coi công thức như 1 đoạn text)

2. Nếu viết dạng công thức trong VBA thì viết như sau (chạy trong vòng lặp):
Sheets("GDV").Range("B" & j).Value = Application.WorksheetFunction.COUNTIF(Sheet1.Range("I22:I" & i), Sheets("GDV").Range("A" & j)
Vỗ tay vỗ tay
Mai Lan 10:08 - Aug 07, 2020
Dạ e đã rõ phần này, e cảm ơn thầy
Vỗ tay vỗ tay
Mai Lan 10:08 - Aug 07, 2020
Chỉ khi formula mới filldown dc còn value thì phải dùng For
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