ژولی پولی

انتقال اطلاعات

پنجشنبه, ۱۹ شهریور ۱۳۹۴، ۰۹:۵۷ ب.ظ

j = 0
For i = 1 To 10000
    If (Cells(i, 1) = Cells(i, 2)) Then
        j = j + 1
        Cells(j, 7) = Cells(i, 1)
    End If
Next i

 اطلاعات از ستون "ا" به ستون "جی" انتقال می یابند


j = 0
For i = 1 To 100
    If (Cells(i, 1) = Cells(i, 2) And (Cells(i, 1) <> "")) Then
        j = j + 1
        Cells(j, 6) = i
        Cells(j, 7) = Cells(i, 1)
    End If
Next i


نوشته قرمز رو بنویسی بهتره

ستون اول ودوم رو مقایسه میکنه و اگر مساوی بود به ستون "جی" میبره

ضمنا شماره سطر رو هم نمایش میده


دریافت
حجم: 19.8 کیلوبایت


موافقین ۰ مخالفین ۰ ۹۴/۰۶/۱۹
مهدی صباغ

نظرات  (۰)

هیچ نظری هنوز ثبت نشده است

ارسال نظر

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی