Dim i As Long
Application.ScreenUpdating = False
With Sheets("Sayfa2")
.Columns(1).ClearContents
For i = 1 To .Cells(Rows.Count, 2).End(3).Row
.Cells(i, 1).Value = WorksheetFunction.CountIf(.Range("B1:B" & i), .Range("B" & i))
Next
End With
Application.ScreenUpdating = True
Excel Bir Garip Sıralama Sorusu
Bu Konudaki Yorumlar |
Excel Bir Garip Sıralama Sorusu - Yazar: kanakan52 - 12/05/2020, 19:26
RE: Excel Bir Garip Sıralama Sorusu - Yazar: feraz - 12/05/2020, 20:15
RE: Excel Bir Garip Sıralama Sorusu - Yazar: kanakan52 - 12/05/2020, 21:43
RE: Excel Bir Garip Sıralama Sorusu - Yazar: kanakan52 - 13/05/2020, 10:31
RE: Excel Bir Garip Sıralama Sorusu - Yazar: feraz - 13/05/2020, 11:42
|
Konuyu Okuyanlar: 1 Ziyaretçi