گاهی شاپرکی را از تار عنکبوت می گیری ،خیلی آرام ...تا رهایش کنی ؛شاپرک میان دستانت له می شود ...نیت ِ تو کجاو سرنوشت او کجا ...
متاسفانه این کد به دلیل داده های بسیار زیاد فایل پروسه زمانی بسیار زیادی میطلبه
چون وقت نداشتم عجله ای همینو نوشتم
کد PHP:
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
ویرایش توسط Javid Mokhtari : 2015/10/31 در ساعت 00:24
دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
بیش از 60 جلسه آموزش ویدئویی رایگان
شرکت در دوره:
https://javidsoft.ir/courses/
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)