پرسش اشکال در فایل حذف ردیفهایی از فایل با استفاده از شرط

[habib100]

با سلام خدمت شما دوستان و اساتید
من فایل اکسلی را در اینجا قرار داده ام که در این جدول در ستون b نام تعدادی قطعه ثبت شده است (تعداد زیاد می باشند) و در ستون b درجه مربوط به آن قطعه ، بعنوان مثال : بعضی ها فقط درجه x دارند بعضی ها درجات بالاتر ، قطعه f تا درجه x3 آن وجود دارد و b تا درجه x1 حال من میخواهم یک جدول از اقلام فقط با آخرین درجه آنها داشته باشم نتیجه مانند جدولی که در sheet 2 قرار داده ام باشد ، با vba یا هر دستور دیگر
و جواب داده شده که صحیح بوده ومن می خواستم آن را در سه شیت بسط بدهم که با مشکل مواجه شدم که مشکلات را در فایل ضمیمه شدم ذکر کرده ام
لطفا راهنمایی بفرمایید، متشکرم

[iranweld]

با سلام

در فایل پیوست با کدنویسی قطعات با درجات بالاتر و نام پارت در شیت دوم لیست میگردد

Sub test()


z1 = Sheet1.Cells(Sheet1.Rows.Count, "c").End(xlUp).Row


Z2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row

If Z2 < 2 Then Z2 = 2

Range("H2:z" & z1).ClearContents


K2 = Cells(1, Columns.Count).End(xlToLeft).Column

Sheet2.Range("A2:C" & Z2).ClearContents



Range("C1:C" & z1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "h1"), Unique:=True
        
 Z5 = Sheet1.Cells(Sheet1.Rows.Count, "h").End(xlUp).Row

For T = 2 To Z5

For i = 1 To z1

If Range("c" & i) = Range("h" & T) Then

For j = 9 To K2

If Range("c" & i).Offset(, 1) = Cells(1, j) Then

Cells(T, j) = Range("c" & i).Offset(, -1)

End If

Next

End If

Next

Next

K = 2

For i = 2 To Z5

k1 = Cells(i, Columns.Count).End(xlToLeft).Column


Sheet2.Range("A" & K) = Cells(i, k1)

Sheet2.Range("B" & K) = Cells(i, 8)

Sheet2.Range("C" & K) = Cells(1, k1)

K = K + 1

Next

Sheet2.Select

End Sub 

[habib100]

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

[habib100]

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