سلام يك فايل اكسل حاوي مقادير زيادي عدد و شيت دارم كه مي خوام از طريق يك ماكرو به خروجي مورد نظر برسم
اگه امكان داره راهنماييم كنيد
ممنون
اگه امكان داره راهنماييم كنيد
ممنون
-
Last edited by gha3emi; 2016/01/02, 15:53. -
با سلام
از ماکرو ذیل استفاده کنید
کد PHP: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
Last edited by iranweld; 2016/01/02, 19:27. -
با سلام
اگر چنانچه خواستید با ستون کمکی بدون نیاز به ماکرو هم میتونید به نتیجه دلخواتون برسید.فقط باید آخرین ردیف رو فقط خودش رو قرار بدید که (و) آخر رو اضافه نکنه.
نمونه فایل رو ببینید.[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]کامنت
-
سلام
ممنونم بابت وقتي كه گذاشتيد
اگر خروجي حالت دوم رو بخوام چطور؟ راهي به نظرتون مي رسه؟کامنت
-
با سلام
ستونی راحت تر هست. این فرمول رو ببینید.فرمول آرایه ایست و باید ctrl+shift+inter رو با هم بفشارید.غیر آرایه ای هم هست اگر خواستید آون رو هم مینویسم.
این هم فرمول غیر آرایه ای، تو ردیف 2 از هر ستونی بزارید به پایین درگ کنید جواب میده.کد PHP:=INDEX($A$2:$A$11;SMALL(IF($A$2:$A$11<>0;ROW($A$2:$A$11)-1);ROW(A1)))
کد PHP:=IFERROR(INDEX($A$1:$A$11;SMALL(INDEX(($A$2:$A$11=0)*10^10+ROW($A$2:$A$11);0);ROW(A1)));"")
[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]کامنت
-
سلام
اگه زحمتي نيست غير آرايه اي رو هم آپلود كنيد
ممنون ميشمکامنت
کامنت