كپي اطلاعات يك ستون در ستون ديگر بدون اعداد صفر

[gha3emi]

سلام يك فايل اكسل حاوي مقادير زيادي عدد و شيت دارم كه مي خوام از طريق يك ماكرو به خروجي مورد نظر برسم
اگه امكان داره راهنماييم كنيد
ممنون

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

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

Sub TEST()

Dim STR As String
For Each Sheet In Worksheets

STR = " "

Sheet.Select

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

For I = 2 To ENDROW

If Not IsNumeric(Range("A" & I).Value) Then

STR = STR & Range("A" & I) & " æ "
End If
Next
Sheet.Range("B2").Value = STR


Next Sheet

Sheet1.Select

End Sub 

[amir_ts]

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

[gha3emi]

سلام
ممنونم بابت وقتي كه گذاشتيد
اگر خروجي حالت دوم رو بخوام چطور؟ راهي به نظرتون مي رسه؟

[amir_ts]

با سلام
ستونی راحت تر هست. این فرمول رو ببینید.فرمول آرایه ایست و باید ctrl+shift+inter رو با هم بفشارید.غیر آرایه ای هم هست اگر خواستید آون رو هم مینویسم.

=INDEX($A$2:$A$11;SMALL(IF($A$2:$A$11<>0;ROW($A$2:$A$11)-1);ROW(A1))) 

این هم فرمول غیر آرایه ای، تو ردیف 2 از هر ستونی بزارید به پایین درگ کنید جواب میده.

=IFERROR(INDEX($A$1:$A$11;SMALL(INDEX(($A$2:$A$11=0)*10^10+ROW($A$2:$A$11);0);ROW(A1)));"") 

[gha3emi]

سلام
اگه زحمتي نيست غير آرايه اي رو هم آپلود كنيد
ممنون ميشم