خدمت شما
کافیه اون 1300 تا رو در ستون اول و اون 200 تا رو در ستون دوم کپی کنید.
ستون زرد هم فرمول داره.
درگ کنید تا پایین
ادرس دهی رو دقت کنید
سوالی بود در خدمتم[hr]
ی توضیح هم بدم
من 3 رقم جدا کردم
شما بکنیدش 6
ببخشید که داده هام خیلی فرضی هستن!!!!
خدمت شما
کافیه اون 1300 تا رو در ستون اول و اون 200 تا رو در ستون دوم کپی کنید.
ستون زرد هم فرمول داره.
درگ کنید تا پایین
ادرس دهی رو دقت کنید
سوالی بود در خدمتم[hr]
ی توضیح هم بدم
من 3 رقم جدا کردم
شما بکنیدش 6
ببخشید که داده هام خیلی فرضی هستن!!!!
یه دنیا ممنون...فقط با توابع نوشتین اینو؟! طرز کارشو می شه بگین که اگه نیاز شد تغییری بدم؟
خواهش می کنم
بله
داخل سل زرد رنگ فرمول هس
الان 3تا رو مقایسه می کنه
3 رو به 6 تغییر بدین
محدوده هاتون رو هم باید گسترش بدین
فرمول های ارایه ای هس
فرمول left تعداد رقم دلخواه رو جدا می کنه.فرمول ایف هم که برای مقایسه هر سل با محدوده مورد نظر هس.
اگر برابر بود نشون میده.
اگر هم برابر نبود خالی می ذاره
با درود فراواننوشته اصلی توسط ptgh
Sub Macro1()
For Each c1 In Sheet1.Range("A1:A200")
If c1 <> "" Then
For Each c2 In Sheet2.Range("A1:A1300")
If Left(c1.Value, 6) = Left(c2.Value, 6) Then
c2.Interior.Color = 65535
c1.Interior.Color = 65535
End If
Next c2
End If
Next c1
End Sub
سلام...ببخشید من یه سوال دیگه داشتم الان اگه بخوام نتایجو تو یه شیت دیگه برام چاپ کنه دستوری وجود داره آیا؟پیشاپیش ممنون...
سلام
کافیه فرمول رو توی شیت دیگه بنویسید
با درود فراواننوشته اصلی توسط ptgh
Sub Macro1()
Dim c1, c2
Dim n
For Each c1 In Sheet1.Range("A1:A200")
If c1 <> "" Then
For Each c2 In Sheet2.Range("A1:A1300")
If Left(c1.Value, 6) = Left(c2.Value, 6) Then
c2.Interior.Color = 65535
c1.Interior.Color = 65535
Sheet3.Range("A1").Offset(n, 0) = c2.Value
n = n + 1
End If
Next c2
End If
Next c1
End Sub
با درود
فایل پیوستی هایلایت کردن مشترکها دانلودش که میکنم یه چیز دیگه است اگه ممکنه یه بار دیگه بزارینش خیلی احتیاج دارم خیلی خیلی ممنونم
سلام
این دو ستون 278 و 277 داده یکسان دارند که ستون دوم یک داده بیشتر داره
میشه لطف کنه کسی اون داده رو برای من پیدا بکنه
قربون دستتون
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)