فرض كنيد در ستون اول يك سري كلمه داريم. مي خوام در ستون دوم روبروي هر كلمه تعداد تكرارش را از اول ستون تا سطر جاري بنويسد و اين كار تا جايي كه در ستون اول مقدار هست انجام شود .
خودم از روش زير رفتم اما حتما روش بهتري هم هست. در ضمن فرمولي براي قسمتي كه در سوال زير آن خط كشيده ام پيدا نكردم و 100 گذاشتم.
[align=left]Sub Button1_Click()
Dim i As Variant, j As Variant, c As Variant
c = 0

For i = 1 To 100
For j = 1 To i
If (Cells(i, 1).Value = Cells(j, 1).Value) Then
c = c + 1
End If
Next j
Cells(i, 2) = c
c = 0
Next i

End Sub
[/align]
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.