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