پرسش تبدیل ماتریس به ستون

[hojabr]

باسلام و احترام به اساتید محترم یک ماتریس دارم از کدهای وروری به یک دایره (36قلم) در ستون و 48 قلم محصول تولیدی در سطر .ضرایب مصرف هر قلم (در صورتیکه وجود داشته باشد) ثبت شده .می خوام این مقادیر را بر اساس هر کد ورودی برای همه محصولات به صورت ستونی داشته باشم.کاربرگ نمونه ایجاد شده است.بر اساس شماره ردیف ها هم می شود انجام داد.فایل پیوست. با تشکر

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید به دو روش گزارشگیری انجام گرفته است

ابتدا توسط vba ردیفهایی که دارای ضریب میباشد در شیت2 لیست میگردد.

Sub test()

k = 3

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

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

For i = 6 To z1

For j = 4 To k1

If Cells(i, j) > 0 Then

Sheets("sheet2").Range("a" & k) = Range("b" & i)
Sheets("sheet2").Range("c" & k) = Range("c" & i)

Sheets("sheet2").Range("b" & k) = Cells(4, j)
Sheets("sheet2").Range("d" & k) = Cells(5, j)
Sheets("sheet2").Range("e" & k) = Cells(i, j)

k = k + 1

End If

Next

Next

End Sub