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

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 کیلوبایت