[حل شده] ادغام سطرها

[mr_aghaei1]

با سلام و خسته نباشید محضر دوستان .من می خواهم در یک فایل اکسل که یک ستون با 640 سطر می باشد هر 8 سطر را باهم ادغام کنم و در یک سطر قرار دهیم یعنی در نهایت من 80 سطر داشته باشم که در هر سطر 8 سطر با هم ادغام شده اند.طریقه کار را کسی میداند که مرا راهنمایی کند؟ با تشکر

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید

=if(mod(row(),8)=0,concatenate(a1,a2,a3,a4,a5,a6,a7,a8),"") 

[mokaram]

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

Sub MergeRows()

    Dim i


    For i = 1 To 640 Step 8
            Range(Cells(i, 1), Cells(i + 7, 1)).Merge
    Next i
End Sub 

[mr_aghaei1]

با سلام

فایل پیوست را بررسی بفرمایید

=if(mod(row(),8)=0,concatenate(a1,a2,a3,a4,a5,a6,a7,a8),"") 

من می خواهم این فایل 80 سطر داشته باشد

[iranweld]

با سلام

ماکرو فایل پیوست را اجرا بفرمایید

Sub test()

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

k = 2

j = 1

For i = 1 To z1


Cells(j, k) = Range("A" & i)

k = k + 1

If k > 9 Then

k = 2

j = j + 1

End If

Next


End Sub 

[mr_aghaei1]

ممنون از راهنمائی تون .درست شد