[حل شده] ردیف کردن سلولهای چند ستون در یک ستون دیگر

[كامران]

سلام
فرض کنید ما در ستونهای a,b,c یکسری داده داریم که میخواهیم در ستون d بصورت
سلولهای غیر خالی ستون a
سلولهای غیر خالی ستون b
سلولهای غیر خالی ستون c
بیاید ولی با شرطهای پایین

1 - تعداد کلی سطر های سلولهای a تا c ثابت است (فرض بفرمائید 200 تا)
2 - تعداد سلولهای غیر خالی a تا c متغیر است (بر اساس اطلاعات ورودی هر دفعه تغییر میکند)

پ.ن من الان اینکار رو انجام میدم ولی از راه خیلی طولانی
یعنی کل aوbوc رو تو d مینویسم بعد توی ستون e
if(d1="";1000;row(d1))
.
.
.
If(d600="";1000;row(d600))

سورت میکنم و ...............

[iranweld]

با سلام

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

Sub TEST()

Range("d2:d1000").ClearContents

K = 2

For J = 1 To 3

Z1 = Sheet1.Cells(Sheet1.Rows.Count, J).End(xlUp).Row

For I = 2 To Z1

If Cells(I, J) <> "" Then

Cells(K, 4) = Cells(I, J)

K = K + 1

End If

Next

Next

End Sub 

[كامران]

با سلام

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

Sub TEST()

Range("d2:d1000").ClearContents

K = 2

For J = 1 To 3

Z1 = Sheet1.Cells(Sheet1.Rows.Count, J).End(xlUp).Row

For I = 2 To Z1

If Cells(I, J) <> "" Then

Cells(K, 4) = Cells(I, J)

K = K + 1

End If

Next

Next

End Sub 

ممنون فقط یه سوال :
ظاهرآ در خط Z1 = Sheet1.Cells(Sheet1.Rows.Count, J).End(xlUp).Row
قسمت قرمز سلول انتهای ردیف را مشخص میکند

ولی فرظا در یک محدوده 25 سلولی به سلول 25 اشاره میکند یا 26 (سلول بعد از آخرین)؟؟

[Amir Ghasemiyan]

ممنون فقط یه سوال :
ظاهرآ در خط Z1 = Sheet1.Cells(Sheet1.Rows.Count, J).End(xlUp).Row
قسمت قرمز سلول انتهای ردیف را مشخص میکند

ولی فرظا در یک محدوده 25 سلولی به سلول 25 اشاره میکند یا 26 (سلول بعد از آخرین)؟؟

با اجازه iranweld عزيز

دوست عزيز اين خط شماره رديف آخرين سلولي كه داده داره رو برميگردونه. مثلا در همون مثالي كه خودتون زديد مقدار 25 رو برميگردونه