اعمال عملیات ریاضی و .. روی فایل

[fo-eng]

با درود فراوان
ماکروی که نوشتم ببین چیزی هست که مد نظر شماست

سپاسگذارم از لطف شما/
متاسفانه فکر می کنم روی بعضی جملات درست جواب میده و روی بعضی دیگر خیر.
مثلا 'Go زده یک مرتبه. در صورتی که من دستی در کل داده ها سرچ کردم و 4 مرتبه ایجاد شده بود.

[Javid Mokhtari]

سلام دوستان.

حالا می خوام این اعمال بر روی اون ایحاد شود:
1- تعداد جملاتي که اون کلمه رو دارن رو حساب کنم (براي مثال اگر 500 تا جمله داشته باشيم ممکنه کلمه ي this در 400تاي اون ها اومده باشه. در بعضي چندبار و در بعضي اصلا نيومده باشه)


با تشکر.

متاسفانه این کد به دلیل داده های بسیار زیاد فایل پروسه زمانی بسیار زیادی میطلبه
چون وقت نداشتم عجله ای همینو نوشتم

Dim counter As Integer, rw As Integer
rw = Sheet2.Range("a1000000").End(xlUp).Row
rw2 = Sheet1.Range("a1000000").End(xlUp).Row
For i = 1 To rw
counter = 0
    For j = 1 To rw2
        If WorksheetFunction.CountIf(Sheet1.Range(Cells(j, 1).Address, Cells(j, 50).Address), Sheet2.Cells(i, 1)) <> 0 Then
            counter = counter + 1
        End If
    Next j
    Sheet2.Cells(i, 3) = counter
Next i