[حل شده] تبدیل چند سطر متوالی سطر به سه ستون

[Cookie]

با سلام

من یسری داده های رگبار یک دقیقه ای دارم که به صورت یک سطر به شکل متوالی برای یک روز معین قرار داده شدن. برای انجام کارام نیاز دارم که این داده ها به صورت سه ستون (تاریخ-زمان-ارتفاع بارش) قرار بگیرند.
یک قسمت از داده ها رو اینجا قرار دادم. تو شیت 2 هم قسمتی رو به عنوان مثال به صورت دستی انجام دادم. خیلی خیلی ممنون میشم کمکم کنید.

Book1_Cookie.xlsxBook1_Cookie.xlsx

+ تو انجمن هم جستجو کردم به این طریقی که من میخواستم چیزی پیدا نکردم!

[neda-a]

با کمک پایوت تیبل یا sum if می تونید جمع به ازای هر تاریخ را داشته باشید - البته هنوز یکم برای من گنگ هست می خواهید دقیقا چیکار کنین

[Cookie]

با کمک پایوت تیبل یا sum if می تونید جمع به ازای هر تاریخ را داشته باشید - البته هنوز یکم برای من گنگ هست می خواهید دقیقا چیکار کنین

ببخشید، متوجه نشدم! میشه بیشتر راهنمایی بفرمایید؟

[neda-a]

ببینید

[Cookie]

ببینید

خیلی ممنونم ازتون، ولی فکر کنم منظور رو اشتباه رسوندم ... من میخوام سطر ها رو به ستون تبدیل کنم تا زمان های یک دقیقه ای زیر هم باشند و همچنین ارتفاع ها در ستون مقابل زیر هم ...

شیت دوم رو ملاحظه بفرمایید ... زمان ها به ترتیب در یک ستون زیر هم هستند ولی در فایل اصلی زمان ها به ترتیب در سطر هستند

18:01:00 0 18:02:00 0 18:03:00 0 18:04:00 0/02 18:05:00 0/03 1800 0/05 18:07:00 0/06 18:08:00 0/08

[neda-a]

خیلی ممنونم ازتون، ولی فکر کنم منظور رو اشتباه رسوندم ... من میخوام سطر ها رو به ستون تبدیل کنم تا زمان های یک دقیقه ای زیر هم باشند و همچنین ارتفاع ها در ستون مقابل زیر هم ...

شیت دوم رو ملاحظه بفرمایید ... زمان ها به ترتیب در یک ستون زیر هم هستند ولی در فایل اصلی زمان ها به ترتیب در سطر هستند

18:01:00 0 18:02:00 0 18:03:00 0 18:04:00 0/02 18:05:00 0/03 1800 0/05 18:07:00 0/06 18:08:00 0/08

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

[iranweld]

با سلام

در فایل پیوست کلیه دیتای موجود توسط ماکرو ذیل در سه ستون اول تجمیع گردید و با پیوت تیبل گزارشگیری شد.

Sub test()

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

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row + 1

For j = 4 To k1 Step 2

Z2 = Sheet1.Cells(Sheet1.Rows.Count, j).End(xlUp).Row + 1

 [TARIKH].Copy Destination:=Range("A" & Z1)

Range(Cells(2, j), Cells(Z2, j + 1)).Copy Destination:=Range("b" & Z1)

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row + 1

Next

End Sub 

[rahi_feri]

سلام
لطفا چک کنید!

Sub transposebaba()
Application.ScreenUpdating = False
Dim lrow As Integer
Dim cnt As Integer
lrow = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
cnt = 2
For i = 2 To lrow
For j = 2 To 60 Step 2
Sheets("Cal").Cells(cnt, 1).Value = Sheets("sheet1").Cells(i, 1).Value
Sheets("Cal").Cells(cnt, 2).Value = Sheets("sheet1").Cells(i, j).Value
Sheets("Cal").Cells(cnt, 3).Value = Sheets("sheet1").Cells(i, j + 1).Value
cnt = cnt + 1
Next
Next
Columns("B:B").Select
Selection.NumberFormat = "h:mm:ss"
Range("a1").Select
Application.ScreenUpdating = True
End Sub

[Cookie]

با سلام

در فایل پیوست کلیه دیتای موجود توسط ماکرو ذیل در سه ستون اول تجمیع گردید و با پیوت تیبل گزارشگیری شد.

Sub test()

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

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row + 1

For j = 4 To k1 Step 2

Z2 = Sheet1.Cells(Sheet1.Rows.Count, j).End(xlUp).Row + 1

 [TARIKH].Copy Destination:=Range("A" & Z1)

Range(Cells(2, j), Cells(Z2, j + 1)).Copy Destination:=Range("b" & Z1)

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row + 1

Next

End Sub 

سلام

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

ستون ها دقیقا مثله همونی شدن که میخواستم ولی مثه اینکه داده ها سورت شدن و ترتیبشون رو از دست دادن و من این رو نمیخوام چون ارتفاع بارش ها به صورت تجمعی هست و باید ترتیبشون رعایت شده باشن ...

بازم ممنون از وقتی که میذارید:53::53::53:

سلام
لطفا چک کنید!

Sub transposebaba()
Application.ScreenUpdating = False
Dim lrow As Integer
Dim cnt As Integer
lrow = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
cnt = 2
For i = 2 To lrow
For j = 2 To 60 Step 2
Sheets("Cal").Cells(cnt, 1).Value = Sheets("sheet1").Cells(i, 1).Value
Sheets("Cal").Cells(cnt, 2).Value = Sheets("sheet1").Cells(i, j).Value
Sheets("Cal").Cells(cnt, 3).Value = Sheets("sheet1").Cells(i, j + 1).Value
cnt = cnt + 1
Next
Next
Columns("B:B").Select
Selection.NumberFormat = "h:mm:ss"
Range("a1").Select
Application.ScreenUpdating = True
End Sub

چیو چک کنم ؟؟!!:whatB:

[rahi_feri]

سلام
مگه نمی خواستید داده های هر سطر زیر هم به ترتیب در یک ستون (ساعت در یک ستون و ارتفاع در ستون مقابل) قرار بگیرند!؟
منظورم از چک کردن اینه که جواب مورد نظرتون هست یا نه؟! همچنین به طور رندم چند تا داده رو چک کنید تا مطمئن بشید!

[Cookie]

سلام
مگه نمی خواستید داده های هر سطر زیر هم به ترتیب در یک ستون (ساعت در یک ستون و ارتفاع در ستون مقابل) قرار بگیرند!؟
منظورم از چک کردن اینه که جواب مورد نظرتون هست یا نه؟! همچنین به طور رندم چند تا داده رو چک کنید تا مطمئن بشید!

آهان بله ... تازه متوجه شدم !!

بسیار سپاسگزارم ...

فقط من کلی دیگه داده اینشکلی دارم ... ! میشه راهنماییم کنید بقیه رو هم بتونم انجام بدم ؟

بازم سپاس ..

[rahi_feri]

اگر ساختارشون همینجوریه! از همین کد می تونید استفاده کنید تا هر چند سطر ! (نه ستون / اگه تعداد ستون ها زیاد باشه نیاز به ویرایش کد هست)
تا جای امکان سعی کنید داده ها رو به همین صورت ستونی وارد کنید چون انجام محاسباتش به مراتب راحت تره!

[Cookie]

اگر ساختارشون همینجوریه! از همین کد می تونید استفاده کنید تا هر چند سطر ! (نه ستون / اگه تعداد ستون ها زیاد باشه نیاز به ویرایش کد هست)
تا جای امکان سعی کنید داده ها رو به همین صورت ستونی وارد کنید چون انجام محاسباتش به مراتب راحت تره!

تعداد سطر های داده های من همین تعداد هستند ولی تعداد ستون ها بیشترن!

وقتی هم که اجرا میکنم اینشکلی میشن :

[rahi_feri]

سلام
لطفا فایل رو بفرستید!

[Cookie]

سلام
لطفا فایل رو بفرستید!

واقعا ممنونم از پیگیری هاتون ...

این فایل یکم کلی تره، البته بازم داده هست که به ستون های پایینی اضافه بشه ولی هنوز به دستم نرسیده ...
حدود 15 تا دیگه از این فایل ها دارم که باید اصلاح بشن ...