[حل شده] نحوه تبدیل یک شیت در اکسل با استفاده از ماکرو به حالت دیتا بیس ستونی برای نرم افزار Power Bi

[EMKILL]

سلام دوستان
راستش من چندین ماه Power Bi میکنم و دیتا بیس ورودی BI رو از اکسل میگیرم نیاز دارم Table ها مو توی اکسل به حالت دیتا بیس نویسی برای ورود توی BI دربیارم که اکثرا با Copy-Paste مشکلمو حل میکنم ولی زمانی که با Big Data سر کار دارم به مشکل میخورم نیاز به یه ماکرو دارم که کارمو راحت کنه ممنون میشم دوستان خوبم ماکرویی بنویسن که Table موجود در شیت Data رو به صورت ستونی در شیت MSP 1 بیارن به طوری که ستون اولمون تاریخ توی یه Scope بچرخه (28 ماه) ستون دوم طبقه بچرخه و ستون سوم زیر مجموعه ها من برای یه دونه زیر مجموعه به صورت نمونه با فرمول ایندکس نوشتم که دوستان ساز و کار رو متوجه بشن دوستان خوبم پس از اتمام کار باید شیت MSP1 به مقدار 5824 ردیف داشته باشیم یعنی Scope تاریخ ضربدر Scope زیر مجموعه 28*208
دوستان خوبم من همه Table هام به همین شکله ممنوم میشم ماکرو رو یکم سازو کارشو شرح بدین که خودم بتونم برای بقیه پروژه هام هم هندل کنم.

[EMKILL]

کیست مرا یاری کند..................

[EMKILL]

دوستان میشه توی شیت MSP 1 ستون تاریخ رو ثابت نگه داشت و ستون های طبقه و زیر مجموعه تویه Scope بچرخه من این کار رو دستی انجام دادم تا یه جایی اگه کسی لطف کنه ماکرو این کارو بنوسیه ممنون میشم توجه کنین که هر دو روش چه این چه بالایی یه نتیجه رو داره و برای تستش هم میتونین SUM پیشرفت برنامه ای بگیرین که میشه 100000.84

[iranweld]

با سلام

از ماکروی ذیل استفاده کنید

Sub test()

Sheets("MSP 1").Cells.ClearContents

k1 = Application.WorksheetFunction.CountA(Sheets("Data").Range("1:1"))

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

k = 2

For j = 4 To k1

For i = 2 To z1

If Cells(i, j) <> "" Then


Sheets("MSP 1").Range("A" & k) = Cells(1, j)

Sheets("MSP 1").Range("b" & k) = Cells(i, 2)

Sheets("MSP 1").Range("c" & k) = Cells(i, 3)

Sheets("MSP 1").Range("d" & k) = Cells(i, j)

k = k + 1

End If

Next i

Next j

Sheet2.Select

End Sub