Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub cuntef()
- ThisWorkbook.Sheets("sheet3").Activate
- For i = 2 To 13
- ActiveSheet.Range("C" & i).Value = Application.WorksheetFunction.CountIf _
- (ActiveSheet.Range("A" & i), ActiveSheet.Range("A" & i))
- Next
Add Comment
Please, Sign In to add comment
