[حل شده] استخراج اطلاعات خاص از کل اطلاعات موجود

[elman1368]

سلام من یه فایل اکسل دارم که تعداد زیادی ستون داره که اطلاعات توش ذحیره شده
یه ستون دیگه داره که میخوام ببینم اطلاعات این ستون کجاهای اون ستون های قبلی قرار داره و اونو در یه سطری که من مشخص میکنم بهم نمایش بده
یه فایل نمونه کوچیگ هم پیوست کردم

[M_ExceL]

سلام من یه فایل اکسل دارم که تعداد زیادی ستون داره که اطلاعات توش ذحیره شده
یه ستون دیگه داره که میخوام ببینم اطلاعات این ستون کجاهای اون ستون های قبلی قرار داره و اونو در یه سطری که من مشخص میکنم بهم نمایش بده
یه فایل نمونه کوچیگ هم پیوست کردم

سلام،
کد زیر رو تست کنید :

Sub M_E()
With Application
    .ScreenUpdating = False
        lr = Cells(Rows.Count, 4).End(3).Row
        lc = Cells(1, Columns.Count).End(1).Column
            For n = 21 To lr
                For i = 5 To lc
                    cc = Cells(Rows.Count, i).End(3).Row
                        For c = 1 To cc
                            If Cells(n, 4) = Cells(c, i) Then
                                Cells(n, Columns.Count).End(1).Offset(, 1) = Cells(1, i)
                            End If
                        Next c
                Next i
            Next n
    .ScreenUpdating = True
End With
End Sub

[elman1368]

سلام ضمن تقدیر و تشکر
میشه بیشتر توضیح بدید؟ آخه واسم خیلی گنگه!!!
میشه یه جوری نوشت که نیاز به کد vba نباشه؟
من باید تعداد زیادی از این نوع اطلاعات رو باید بررسی کنم و این جوری به نظرم سخته